(navigation image)
Home American Libraries | Canadian Libraries | Universal Library | Community Texts | Project Gutenberg | Children's Library | Biodiversity Heritage Library | Additional Collections
Search: Advanced Search
Anonymous User (login or join us)
Upload
See other formats

Full text of "SoftSide Magazine Issue 16 (Moving Maze)"

What surprisi^s 
lurk within the 
MOVING MAZE? 



YOUR BASIC SOFTWARE 
MAGAZINE 

JANUARY 
1980 



V . 




i 4 



^■'i^ 



f 



r»? 



■Ci- 







Floppy Disk 
Diagnostic 

by Dave Stambaugh 



o 35 or 40 track in same program 

• Tests controHer functions and status bits 

® Tests drive speed and allows adfustment 

® Tests switches and mechanical 
components 

^ Verifies data transfer 

® Tests drive seek function 

« Sector and byte write and read tests 
using all possible patterns 

«16 to 48K, 1 to 4 disk drives 

4 Tests cross cylinder interference 

• Tests drive-to-drive compatibility 

The best and most complete diagnostic you can buy 
to verify disk drive reliability and find problems. 
Displays 19 error messages and cross references 
them to 14 possible causes. Continuous test option 
for exhaustive testing keeps statistical record of all 
errors found. 

Supplied on diskette with manual for only 
$24.95. 



6 SourfiStreet, Box 68, Miitoid,NH 03(GS 603-673-5144 




L5oft5ii3eJ 

YOUR BASIC SOFTWARE MAGAZINE VOL |[, NO 4 

m THIS ISSUE ... 

MOVING MAZE by Paul Klinger 10 

BOMBER By Chris Freund 18 

REFLECTION By Ted Lindstrom 23 

DANTE'S INFERNO By Gerald Bernor 36 

BASIC PITFALLS By William Mason 52 

DUCK HUNTER By Don Lubarsky 58 



REGULAR FEATURES . 



OUTGOING MAIL By George Blank 6 

PROGRAMMING HINTS 14 

INPUT 33 

BUG REPORT 15 

CONVENIENT ORDER FORMS 70&71 



COVER STORY 




As we were musing on mazes, 
we recollected the myth of the 
legendary haif-man, half-bull 
Minotaur, who lurked deep in a 
Cretan labyrinth and ate 
youths and maidens. This tale 
inflamed the imagination of 
staff artist Sharon Demmerle, 
and you can see the result on 
our cover! 






ymbolic Trace and Debug 

A powerful monitor for the TRS-80 with special ability in Tracing and 
Debugging. Single Step through machine language programs or set up t o 
threebreakpoints, and look at this display format! 





flF BC Dt HL IX IV fiF ■ BC ' b£ ' HL ' 5P PC 

»44 eeed caee bt/c €4iz ffff 0102 mm 41300 3Fce 41fc- 4400 
4«e LD a SI 

All the power of regular monitors as well. Look at these commands: 



A FIRSTfO) LAST(FFFF) 

A FIRST 

B 

BV/iLA 

B VALA VALB<0) 

c 

D FIRST(0) LAST(FFFF) 

E FIRST(O) 

F FIRST UVST ^ALUE 

G BRKPTS (3 max.) 

H FIRST LAST VALUE 

I PORT 

K 

L 

L SECTOR MEMORV COUNTd) 

M FIRST Li^ST SLOCK 

N 

NO 

N VALUE 

N FIRST 

O PORT VALUE 

P 

P ENTRY 

P FIRST LAST 

Q FIRST LAST 

R 

S FIRST LAST OPTIONfO) 

T COUNT OPTIONie) 

U FIRST COUNT OPTIO WO) 

V FIRST LAST BLOCK 

W SECTOR MEMORY COUNT(I) 

X FIRST LAST BLOCK 

Z FIRST LAST VALUE{0) 



ASCII dump 

formatted ASCII duiT)p 

Starr of branch table 

display In deoimsl 

hex arittimetic 

check system tape ' ■: 

duimp tiex 

edit memory 

find byle 

&et breaKpoints, continue 

Nnd word 

read port 

keyboard echo 

load ayslem tape 

load From dish 

move memory 

display symbol table 

symbol lable to tape 

detlne valine for symbol table 

define start symbol table 

VLTrlte to port 

Iriitiali^e nrtejnory blocks 

write memory blocks and start 

define a mernory block 

calculate cbecksum 

display I modify registers 

disassembler 

trace instructions 

unformatted tape I/O 

verity memory 

write to disk 

exchange memory 

2erD memory 



16K, 32K, and 48K versions on one cassette for $24.95 
(Use from tape in Level II or as a command file from Disk) 



TheSoU^^^re Exchange 

6 SouthStreet, Box 68, Mllford, NH 03055 6CB-673-5144 




35ltSii 

YOUR BASIC SOFTWARE MAGAZINE 



SoftSldfl Magazine \s continually seeking origin al articles and software for publication. Imaginalion and 
variety in concept and oontent are our primary criteria for acceptance. Payinant varies with lengttiT 
suitabtlEty, easeoE editing and qualhy. 

Our poHcies wfth respect to software purchase are highly IndividuaJFzecfr and offer the pro^rammef 
several opsions, inclLtding one-time publication rights, outright purctiaso. and royalties on sale of 
prerecorded cassettes- Program aabmissions should use Radio Shack Level 11 Basic, should run in Level It 
and Disk BASIC, and may not employ coding tschntques thai cannot be. accuratety presented in a line 
listing, such as SYSTEIW modLiles and "super graphfcs'' or other hybrid methods. For more Ir^formationj 
please write; SoftSlrte, PO Box 58, Milford, NH 03055 

SoflSide Is pubHsh«d month]y by SoflSide Publications, fi South St,, f^ilfcrd, NH 0SQ55. Subscription 
rates: iJSA bulk rate - $1fl per year, USA first class, APO, FPO, Canada, Mexico, overseas svicface man 
"Sas p&r yfiar. Overseas afrmaH - S30 per year Ail rsntittanc^ must be In U.S. funds. Mall subscription In- 
quiries lo: SoftSide Subscriptions, PO Gok 6a, MUford, MH 03065, Entire contents copyright • 1979 by Soft- 
Side Publication*. All rights fesofved. 



FOR YOUR ORDERING COMVENIENCE, TOLL-FREE 

1-800-258-1790 



(603) 673-5144 

PROGRAMMERS ARE AVAILABLE ON: 

THE HOTLINE 





TUESDAYS, 7-10 PM, EST 








(603)673-5144 






SoftSlde Publications 




The Software Exchange 




EiMior 


PuWiSwr 


Publishing Coardlitalor 




Qeorge Blank 


Roger W. Robltallte, Sr. 


Elizabeth Robttatlle 




CiBsllva Oirsctar 


BiHikMpIng 


Marketing Manager 




Elaine Chesver 


Rita Ellis 


Joseph Breton 




Copy Ecfitof 


Leslie Place 


Beceptlonlsl 




Freida Day 


Cuslomar Service 


Mary Edwards 




Pioduction 


Bette Keenan 


Courier 




Sharon Demmerle 


Shipping 

Bea Kimball, Mgr. 


Lester Anderson 




Laurl Miller 


Gary Young, Asst. 




Alison WHljs 
Marty Draper 


Donna Jean 


Brian Bert<eblle 




Subscriptioiis 


Printing 


David K. Robitaille 




Diana Bishop, Mgr. 


Memorial Press Qroup 


Erie Ekylen 




B. Cookingtiam, Assl. Mflf- 




Copy DWelon 




Karan Fl3s»tte 




[>anna McMahon 




Jane Brunei le 






V 


* 


■ 




1 






¥ 


'jf* 






t 






As I write this, in mid December, 
we are getting our second snow of 
the season. The first was way back 
in October. Here in Milford weare 
keeping warm by staying busy. We 
have two new publications, 
AppieSeed, which finally went to 
press on December 12, and The 
Eighty, scheduled to go to press 
with this issue of SottSide, 

AppieSeed is for AppleFolk, but 
The Eighty is for you, and it is free! 
Since we do not accept outside 
advertising inSoftSide, we created 
The Eighty as a way of getting 
information on TRS-80 products 
to our subscribers. Your copy 
should arrive soon. 

At the Software Exchange, after 
months of delay from the phone 
company, we finally have our toll- 
free telephone working (at the 
moment?). It was promised for 
September 15, and finally installed 
the day alter Thanksgiving. We 
apologize to alf of those who tried 
to call before it worked, but it takes 
almost two months from the time 
we write an ad until you read it, and 
we believed Ma Bell. It has been 
out of service several times 
already! 

6 



Meanwhile, back at SoftSide, we 
are trying to get caught up with our 
Bug Report, Untortunately the 
report will almost always be at 
least two months after the 
problem. Here is the reason. In 
order to send SoftSide to the 
printer on the fourth Tuesday of 
the month, we have to get even last 
minute changes to the typesetters 
on the preceding Friday. Then it 
takes a week to get the magazine 
back. After that, it takes another 
week to address them all and malt 
them out. It may take them three 
more weeks to reach you before 
we start to get calls about bugs 
that we missed. By that time, the 
next issue has gone to the printer. 

Of course, the obvious answer is 
to get all the bugs out before we 
publish the program. I wish it were 
that easy. I used to feel the same 
way when ! was a part-time editor 
and lived in Pennsylvania, Now 
that I am full time, and it is MY job 
to get rid of the bugs, I am not so 
sure. 

I personally play each game, 
edit it, play it again, and then make 
the line listing for the magazine. 
But some bugs get very clever at 



hiding. For example, in Westward 
1847, there was a disaster because 
the instructions were spaced 
wrong. The program worked fine, 
but when our Radio Shack Line 
Printer I comes to a carriage 
return (ENTER) followed by a line 
feed (DOWN ARROW), it ignores 
the line feed! In line 2940 of 
Everest, PRINT" is nnissing after 
THEN. I never noticed it because I 
never ran out of oxygen. And even 
when we get it right, we can have 
problems like we did with Isolate. 
In line 100, the phrase 
PRINT@P + 67 did not print right 
in 1/3 of the copies. I didn't even 
notice it when it came back 
because my copies happened to 
be good ones 

All I can do as i reach for the Bug 
Spray, is mutter, "Every non-trival 
program has at least one bug; 
therefore, if a program has no 
bugs, it is trivial." 

BUSINESSMEN: 

WE NEED YOUR HELP 

It you have discovered a 
program by someone else that 
works well in your business, tell 
us. We are always looking for good 
programs. 

In addition, we need to know 
what programs work well in which 
businesses. For example, a Dairy 
Store, a Mail Order House, a Toy 
Manufacturer, and an Automobile 
Dealer all need inventory control. 
But a program that is ideally suited 
to one of them might be totally 
useless to the rest. We need your 
experience to recommend our 
different programs. 

Finally, our fondest dream is to 
obtain an integrated Accounts 
Receivable, Accounts Payable, 
General Ledger, Inventory, 



Payroll, and Mail List package that 
works well. Ifyouknowof one, and 
have used it with satisfaction, 
please tell us. We desire a system 
with complete audit trail, efficient 
use of memory, the ability to print 
Balance Sheets, Income 
Statements, Invoices, Checks, 
Reports, and mailing labels for the 
small business. Eventually, we wift 
need several such packages 
geared to different types of 
business. We are also interested in 
sophisticated software for the 
Model II. 

WARNING MODEL II 

We have been hearing a lot o1 
complaints about the unreliability 
of the Model II TRS-80. Even more 
disturbing than the failure rate is 
slow repair rate. Of five systems 
we are aware of, one has never 
worked, three have had major 
problems (down at least six 
weeks) and one has not had a 
complaint reported. 

NEW BOOK 

BASIC Computer Games: TR3-- 
80'" Edition by David Ahf, This 
book, available at your local Shack 
for $6.95, is essentially the same as 
101 BASIC Computer Games from 
Creative Computing. The original 
was a classic at a time when not 
much was available for personal 
computers. Unfortunately, it is 
now quite out of date. In addition, 
the original was set up for display 
on a teletype, and little 
imagination has been used in 
converting the programs for 
screen display. For these reasons, 
very few of the programs would be 
considered good enough for 
publication in SoftSide, and TSE 
has decided notttrcarry the book. 

G.W.B. 

7 




ADVENTURE 



Get the granddaddy of the Adventure Games! 

From Microsoft, the people who wrote 
BASIC for all the personal computers, comes a 
version of the original Adventure. NOW, you 
no longer need a PDF- 10 for alt the power of the 
original game! 

This game fills an entire diskette. Endless 
variety and challenge as you seek to rise to the 
level of Grand Master (until you gain skill, there 
are whole areas of the cave that you cannot 
enter.) 

Requires 32K One Disk ONLY $29.95! 
'-^^M The SaHware Exchange 






lotfi ■ *«( ooM* itiuiM DtFusi aoto itnniM' 



n«NMI ITdi CMttI wlfTII ■ tlHt 



r-vNiMrr 



SHORTHAND for LEVEL II 
and DISK BASIC 

'^TSHORT™lets you type LEVEL II and/or DISK BASIC more 
quickly and accurately than ever before. Save up to 90% 
programming time and achieve 100% accuracy. 

■7v"3i programming statement keys. 

TvKUSTOM^^key, up to 64 characters -changeable anytime. 

TV 42 key decals (see picture). 10 area different for DISK users. 

■^ A single, shifted-key entry types entire statement on screen. 

^ Fast, efficient machine language. 

4f Uses 580 bytes of LOW memory, i.e.: No MEM SIZE req'd. 

■^f Comes on cassettes, one side LEVEL II, the other for DOS. 

■Jf Compatible with DOS 2.1, 2.2, 2.3, NEWDOS, KBFIX, etc. 

•^DOS version loads to and executes from disk via TAPEDISK. 

■^"Features self-entering commands: CONT; GOTO10: 
KUSTOM™ (Self-enter optional) 

#TSHORT ™ WIA page instruction manual $ 9.95 

TO ORDER: 
CALL TOLL-FREE 
1-800-258-1790 

9AM - 9PM, EST 

TbeScHviimv Exchange 

6StiiitftaM1,fiox(>S,MiJferc(WQj055 1503-673-^7+* 





by Paul Klinger 



Paul KIing«r, the author of Moving 
Mazes, is a researcher in Neuro 
Science at the University ol Michigan. 

Navigate the blinking dot 
through three sections of 
constantly moving maze, trom ttie 
top to the bottom of the screen. 
Direction of the dot is controlled 
by the arrow keys. Any time you 
bump a wall -- in any direction — 
the computer says OOPS, and you 
start over again at the beginning of 



He works with a POP 8, but piays at 
home with hfs TRS-SO. 



the section you are attempting. 
Time is of the essence — you are 
battling against a clock which 
ticks off your seconds of ptay in a 
corner of the screen. Three levels 
of play; beginner, advanced and 
super-expert (we haven't found 
any super-experts around here 
yet). 



5 1^ **i^*^L^^l|f*^f*** 

* MOVIMfi HflZE ♦ 

♦ BV PftJL KLIW3ER * 

18 CLS:faM)ffl1:CLEfKi5^:DEFINTft-F.X-Z:PRIKTK5,"N0VIHG MfiZE" 

15 QOSUe£10:eOSUBa8:fiOSUB2^:(iOTO:^ 

^ ttt=5TRIKG*<2iLe) 

22 RI=CHRI<26>+iTRiNG*(5. 24) 

24 0$=a««<lK>+STRIWj*CS- m)+a#:*<188>+R*+CHR*(i3i)+5TRING*<3. 

128>+C«Ri<19i )+KI+C«yi(i42)+STRI Nfi*(5, 176)+CHR* (143) 

26 P$=CJ«$<131)+STRING$<5. 131>+Ch«*<i88)+R*+CHRt<i91)+STRIN(i$(2, 

14B)+CrtW <131 >+ft«+0«*a9i >+STRI NG$(4. i^) 



10 



28 S*=CHR*<188)+STRING$(J, 121i+CHR»(We)+ft$+a«*<131>+STRlH(»(5, 
148>+CHRt(176>+R*+Cifl»a4e)+STRING«ai76)+CHR$C143) 

38 I=V«^R<H$>:ft=e:8=i:C=15168:K=0:V=e:Z=e;D=12?:E=2e:r=20:li=.2 
I 

35 J=f^K(i+l)+256*PEHfa+2) 

39 IFJ>327S? THEN J=-<65536-J> 

40 F0RK=JTOJ+216:KK)X:P0«(EK,X:NEJa 

56 DflTH 58, 127, 60, 245, 32, 126, 66, 17, 127. 68, i, 63, 6> 237, 184 

66 DflTfi 58, 1^, 60, ». 64, 68, 33, 129, 66, 17, 128, 68, i, 63, g 

79 DflTft 237, 176, 58, 255, 69, 50, 191, 68, 33, 254, €8,17,255,66,1 

m WTfi 63, e, 237, 184, 58, 6, 61, 56, 192, 68, 33, 1, 61, 17, 8 

M OftTft 61. i, 63, e, 237, 176, 241, 56, 63, 61, 58, 191, 61, 245, 33 

196 DflTfi 199, 61, 17, 191, 61, 1, 63. 6, 237, 184, 58, 192, 61, 56, 128 

116 DftTfl 61, 33, 193, 61, 17, 192, 61, 1, 63, 6, 237, 176, 58, 63, 62 

126 DfiTR 59, 255, 61 33, 62, 62, 17, 63, 62. 1, 63, ft 237, 184, 58 

136 DATa 64,62,56,6,62,33,^^,17,64,62,1,63,6,23? 

146 OflTfi 176, 241, 58, 127, 62, 58, 2S, 62, 245. 33, 254, 62, 17, 255, 62 

156 DflTfi 1, 63, 9, 237, 184, 58, 6, 63, 56, 192, 62, 33, 1 6X 17 

IK DffTB 6, 63, 1, 63, 6, 23?. 176, 58, 127, 63, 56, 63, 63. 33, 126 

176 DflTfi 63, 17, 127, 63, 1* 63, 6. 237, 184, 58, 128, 63, 56, 64, 63 

188 DftTfl 33, 129. 63, 17, 128, 63, 1. 63, 8, 23?, 176, 241, 58, 191, 63. 281 

196 POKE16526,PEEK(I+i>:P0KE16527,P£EK<I+2);RETlJRH:RE« MQH-OISK 

195 ' 198 DEFUSR8= J: RETURN < USE FOR DISK BflSIC 

218 PRIKTW33, 'VOUR TftSK HILL BE TO WWIGfiTE THE BLINKING DOT TH 

ROUGH" 

228 PRIWTHE H0VIN6 Mfl2E TO T« BOTTOM OF THE SCSEEJH " 

236 PRir(Te261, 'HOUJIHQ DOWN fiHV OF THE RRROU KEVS <G«E ftT R TIME 

) HIU." 

246 PR1HT"«0V£ THE DOT IN THE INDICATED DIRECTION; UP, DOMH, LEF 

L RIGHT." 

250 PRiNTM53, "THERE HILL BE TVREE SECTIONS TO THE mZL IF VOU 

filfllP" 
266 PRINT "fl m.U VOU HILL START flOftlN HT THE TOP OF THE SEHiON 

THAT" 

278 PRINT'VOU BUMFtD. TRV TO GET THROUGH IN T« SHORTEST TIME P 

OSSIBLE " 

280 PR1NT"V0UR TINE HILL BE OISPLflVED IN THE UPPER LEFTHflHD CORN 

ER ":PR1HT?856,"P(WSE . . , "iRETURK 

296 ft*<l)=STRIHG*<5, 146>+STRIHG«<6, 128)+STRIN(»<5, 148) 

380 ft$<2>=CHR*<191HSTRIN(i$(5. 12e)+STRINQ«(4, 140)+STRIMQJ(5, 128) 

1 1 



318 fl*<S)«CH»<143)+STRIN(»(4, Ul)+STRlN6$<6i 176>+STRlNe$(4, 131> 

+CW$<142) 

328 ft*<4)=<W»(191)+STRIHG$(4, 128> iftK4)=f»<4)+ft»(4>4fl$(4)+CH»( 

191) 

139 W<5)=CHR*(t91>+STRlH(l$(4, 176)+STRIMQ$<6, 179>+STRINe»<4» 121) 

^CH>»<ldl) 

346 fl»«>=aR»(191)+STRIN(»<4, 176)+CHR*(173)+STRIMBt(4, 131>+a«$ 

Cl?9)+STRIMe*<4, 176)4CHR*(151) 

359 Rt<7)==(3l»(186)-tCHR*(176)+CHR*(128)+ai»<l31)+CH»(143)+CHR* 

(128)+STRIMe$<4,i76)iOI»<126)+CHR»<i43>+CHR»<131)<t«$<128>*CHR 

«Ci7e>4CHR*(188) 

368 rtt<:8)=CHR$<191HSTRIN(»(4. l?£)+CHR«a88>+CHR((i4e)+STRlNG«(2 

. 143)+aiW(146>+CHR»(188>+StRINe«<4, 176)+CHR$<i91) 

378 ft»<9)=CW*<19l)+STRlHG*(6. 14e)+CHR»(143)+CHR$<i4e)+0**(188) 

tSTRING$<5. 146)+CHR$(i91) rRETURN 

388 PRlHTeese. "HIT =EHTER= TO PLWi :F0RI=lT048;>*=INKEY$;IfX»O 

"Tt€H4ieELSEtCXT 

382 PRl(fTW54, " "j :F0RI=lT026:)CS:=INKEV$:iFX»O'"THEN41fleLS 

ENEXT:Q0TO388 

418 CLS:PRlHfT«266,"l = BEGINNER" :PRINT»332, "2 = M)VfiMC£D":PRIHT8 

398, "3 = SUPtR-EXPERT" 

426 tt=e:PRIWT.I»>m' WICH LEVa DO VOU HflHT"iS:lFS<80 

RS>3TtCN428 

438 CLS:PRlKT*198>"PfillSE . . . ■:T=0:Y=l:f»=''":8»="":C»=*'":t!HSeOT 

044€[,478.9ee 

446 F0RI=iT015 : ft$=ftt4M<RHD(4 ) ) . NEXT : R$=fl$+STRlH6*a5, 1^> 

456 FORMT015: B*=e*+fl*(R«)(4) ) : fEXT ; B*=Bf+LEFT*(ft$<RM)<3)+4), 15 

) 

466 FCRI=lT015iC«=C»+fi*<RN0(4)):NEXT;C*=C*+LEFT*(ftt(R«><2>+?)>15 

):G0T06ee 

476 FCRMT015: Fi$=ftt+Fl»(f»l)(7) > : tCXT :ftt=fi*+LEFT»(flf (RM)(3)+4). 15 

) 

480 F0RI=lTOi5:Bi=B*+fl*<RM>(7)) :t€JCT:8»=B$+LEFT*<f»<RH[)<2)+7). 15 

) 

496 fORI=iT015:C*=CI+W(Rr»(6)+i);tfXT;C»=C*+LEFT*<fW<RM>C2)+7)> 

15): 6010686 

see F0Rl=lTQ15:ft*=f($+Fll<i»l[>(6)+2);)©a;R*=ft*+LEFT*(Ftt<;W©(4>+5), 

15) 

5ieFORI^n015;e*=B»*ft$<RHD(6)+3);NE)a;B*=B»+LERf<»(RMK2>+7>, 

15) „__„_^ - 

12 



329 F0RI=lT0^:C*=C»+fi*(RHE«5)+4) :NE)a:C*=«+iEFT*(fi$<RW)(]:)+4>. 

15):G0T066e 

€m CLS:PRINT964>R$i :PRIN[T9^84>B$i ;PR1NT»764,C«^ 

618 l?=RND(86>+2e;lFV>29T»CHV=31:5ET(X,Y>:Q0T(J7e8 

626 IFV>i4THENV=16:SET(X,V):G0T0(W 

63e Y=i:SETaY);(jOT0786 

Tee PRIKTW,IHTa>i :RESE1(X,V):Z=PEEK<C):IF2Ofl6OSUB908ELSESET<X 

,V):FORQ=iT0e:*EXT 

7ie ffl€RR0RG0T0112e:REaT<X,V>:L=L5R(8);(MRKlRQ0T(» 

729 IFP0IKT(^Vn^£N8eKLSESET(X.V> 

738 8ESEKX/ V) :Z=PEEK(C) ; IFZOftGOSUBSettLSESEKX, Y) :F0RS=1T(K :V£ 

XT 

748 T=T+U ; RESEKX, V) :2=PEEK<C) : IF2<>ftG0SUB98eELSESET()i. V> : FORe=l 

TC€:»€XT 

745 t^SET<X,Y):Z=PEEK(C>;IF2<>flGOaJB90e£LSESET(X>V):FORQ=nOEiHE 

XT 

TVb GOTOiW 

see H=W+i ;F0RI=iT01M:fEXT ;aS:PRIHTCtt»<23) :reiKTe2e8, 0*+" "+0 

i+» "+M+'' "+5*; 

8ie F0Rl=lT0S8e:NEXT:G0T0eee 

see F0Re=lT0f;IFZ=16THEM95e 

9ie IFZ=32THEH97B 

528 IFZ=64TfCN99e 

936 lF2=8TICNiei8 

94e SETaY): RETURN 

956 V=V+B:IFY>44THENJLl0e 

%8 lFP0IHT<X,Y)T^£^l8eeELSESET(^Y>:r^TURH 

976 X=X-B:IFX<BTHEHX=e 

988 IFP0Itfr(X,V)TtCH8eeELSESET<X,Y): RETURN 

996 X=X+e:lFX>DTHENX=D 

leee IFF0IST(X,Y)THEMeee£LSE5ETi;X,Y):RETU(»t 

leie Y=Y-B:IFV<£T«KY=B 

1829 IFP01HT(X,y)THEN88eELSESETCX,Y):RETURN 

liee PRIKTW, " "i :PRIMTe966.FIX<(340e8-T*16-5*H)*S)i "POINT 

S:M«Ta)j' SECONDS. (flND'iH :IFW=iTHEHt^lNT" OOPS)"iELSEPRIHT" 

OOPSES)"; 

1185 PRINT" HIT =ENTER='; 
1118 INPUTX*:CLS:(jOT041je 
1126 ttS:PRINT"VOU hUST REPLflCE Q)mm IINE 1^": 

PRIST'TO USE THIS PROQRflM IN DISK BflSICVLIST 198-195 



1 3 







FORMATTED INPUT 



Since a certain well-known manufacturer has copyrighted the live 
key routine they published in their newsletter, here is a better one 
without a copyright: 

* 
* 

♦ 

* 



L I V E K E V 

PUBLIC wmm 

SUBROUTINE 8V 
RDCiER ROBITRILLE 



1 REM * 

+ 
* 
* 

* 
5 REM * LINES 16 AND 28 FOR DEMONSTRflTION ONLV 
i0 CLS : CU=512 : MD=5 : S2=10 : fiOSUB2e88 ; PR I NTE*i E 
2@ END 

1995 REM * CU=CURSa? POSITION ♦ SZ=FIELD SIZE ♦ 

* MD=FLftG (VFLUE OF 5 TO SKIP ENTER) * 

1996 REM * FOR DOUBLE PRECISION CHflHQE LINE 2618 TO: ♦ 

* E»=VftL<E*> * 

2008 M*=STRING*(S2a36> :E*="" :EH*="" :C2=CU 

2610 PRINTecaMfi :PRINTeCU,E*i ; lF<r*=5)flND<LEN<E*>=S2> 

THEr£=Vffl.<E*): RETURN 

2020 PRIHTeCE. " "; :FC«?I=1T025:EH$=IN»<EV*: IFEH*=""T^N 

NEXTI :PRINT eCZ, CHR$<i36> :FORI=1T025:EH*=INKEV*; IFEH** 

""THENNEXTI : G0T028ie 

2030 EV=RSC < EH* > : I FEV=13THENE= VflL < E* > . RETURN 

ELae I F < E V=S > FfNtK LEN<E* > >8 ) THENE*=LEFT*<E*<LEH< E* > -1 ) : 

CZ=C2-1; 

THEN20ie ELSEE*=E*+EH* : CZ=CZ+1 : GOTO2810 

1 4 



2 VIDEO DISPLAY WORKSHEET 
- Those who have done much graphic programming know the 
work and time it takes to copy a picture onto the TRS-80 Video 
Display Worksheet. Here is a better way. Simply take a copy ot the 
worksheet to a printing shop and have a clear plastic overlay made. 
Then all you have to do is pop the overlay on top of that nice picture 
and punch the cordinates right into your keyboard. Most large 
office copters will make overlays, so if you have access to one you 
can even skip the trip to the printer. 
(Thanks to Victor Albino, Woodinville, WA) 



3 



4 



BREAK KEY 

(Level II Only) 

To disable the break key, use POKE 16396.23 
To enable it again, use POKE 16396,201 



Be careful using metal tools around cassettes and diskettes. 
Several diskettes have been spoiled by opening the shipping 
package with magnetized scissors. 

( Thanks to A. Summ«rvUle, Douglas, AZ ) 



BUG REPORT 

Everest {Line 2940) Noi/ember 

Insert PRINT "after THEN 

ENERGV aiST DECiEfBER LINES 628 €39 830 

62e M=C/<fi(E,i)*fl(E,3)/ie0) 
636 FOR fl=lT(Jb;HCfi.3)=fl<R.l)*l1*Fl(R.2)/10e:rEXT ft 
836 PRIHT"T^#[T FLCL IS fi BETTER 6UV ^m^ ";F»(B,e) 

Isolate (Line 1 00, 1 1 0) November 

Some pages missed printing portions of these 
lines. IHere are the missing characters. 

100. . . PRINT® 2P + 67, S; ... 
110. .. MOVE{";: GOSUB ... 



15 




From Admiral Fitzpatrick- 
You are to enter and explore the Omega VI 
region of the galaxy, gather information on other 
inhabitable planetary systems you may encounter and 
defend yourself against hostiles in case of attack. You are 
in command of the Starship ENTERPRISE and her ship's complement of 
371 officers and crew. Omega VI is composed of 192 quadrants 
containing star systems and planets [a few habitable). Information on 
Omega VI is sketchy, but astronomical hazards such as pulsars, Class O 
stars and black holes are known to be present in the region 
It is also patrolled by Klingon battle 
cru isers, so took before you leap 



Available on Digital Cassette 
for Level II, 16K- $14.95 

TO ORDER: 
CALL TOLL FREE 
1-800-258-1790 

9AM ■ 9PM, EST 




TheSaftMoreBMchange 

6 SaithSlre& . ftjx fiS, MiliaiJ, NH (£1055 b03 -673 -SH4 

1 6 



-Specs: Star Trek tlL4^ 



Play Board: 8 by 8 by 3 quadrants 

Weapons Systems: Phasers and 

Photon Torpedoes 

Power Systems: Warp and Impulse 

Computer Systems; Science and 

Ship's computer 

Sensors: Long and Short Range 

Reports: Damage Control and 

Status 

Play Elements: 20 Klingon battle 

cruisers, 100 stars and planets, 

black holes, pulsars 



TIRED OF DISK ERRORS? 

STOP BLAMING YOUR DRIVES - 
FIX YOUR DOS! 

NEWDOS, by Apparat, is the third generation disk operating 
system for your TRS-80. NEWDOS corrects over 70 errors and 
omissions in TRSDOS 2.1 and disk BASIC, yet the two are 
completely compatible! Programs and fiies saved under one can 
be used with the other interchangeably. Going from TRSDOS 
to NEWDOS is like going from Level I to Level 1 1: more 
power, more convenience, greater speed. 



NEWDOS NEWDOS+ 



• Use all DOS commands 
(incl. directory) in BASIC 
Automatically load and run 
a BASIC program 

on power -up 

• Produce variable cross- 
reference tables 

• Open 'E' to add to 
sequential files 

• Append files 

• Use your line printer as 
a screen printer 

• Renumber BASIC programs 

• End keyboard bounce 



Editor/ Assembler for disk • 
Disassembler • 
{Z80 machine code) 
LM Offset-allows transfer of any • 
system tape to a disk file 
(automatically relocated) 
BASICI-Level one BASIC • 
saved on disk 
LV1DSKSL - not a typo, this • 
saves and loads BASIC1 
programs to disk 
DIRCHECK-tests and lists • 
disk directory 
SUPERZAP-display/print/ modify • 
anv location in memory or on disk 



And, best of all, say goiidbye to system crashes, lost data and 
wasted time caused by your old, bug-ridden system software. 
Apparat's NEWDOS is fully documented and available for 
onlyS49-9S. NEWDOS -!-, Just $99.95 

NOTE: Use of this software may require documentation 
available only with the purchase of Radio Shack TRSDOS 
and/or the Radio Shack Editor/ Assembler. 








BOMBER 

By Chris Freund 

Everyone has a favorite canyor» 
filled with debris, which must be 
cleared by bombing the daylights 
out of it. You say you dont have 
one? Astonishing. We'll remedy 
that right away. 

This game begins with your 
selection of a canyon. Then you 



can fly over it, dropping bombs to 
clear the obstacles. Onfy one 
bomb can be dropped at one time, 
and you mustwait for it to finish its 
destruction before dropping 
another. If you don't drop a bomb 
on a run, it counts as a miss. 



4 'WRITTEN BV CHRIS FREUND 




leCLS 




28 PRINT-BOHBER! 




IM THIS Pfmm. VOLI ARE TRVIMG TO aEflR ft CfiNVON OF ITS | 


OeSTflaES Efi' DROPPING EJHBS ON THEM FROM ft PLflNE. 


THE 


GflME CONTINUES UNTIL YOU MISS THREE TIMES. " 





i ft. 



30 PRIMT-OMLV Offi BOMB CflN BE [POPPED AT OKE TI»«, fWD VOU H(ST 
HfllT FOR fl BOMB 70 FINISH ITS DESTRUCTION BEFORE FIRING AN- 
OTi€ft. IF VOU MJN'T W^JP fl BOI« ON fi Ra*> IT COMS flS ft HISS. " 
46 IfPUfT'PRESS ENTER TO START THE GfifE".ft$ 

59 as 

SO aEBR^e:w=a«$<i4i)+a«$<i4e>+a^$(i74>+CHRi<i4ei) 

70 Bt=CHRJa46)+CHR$Ci57)+a«*(14e)+CHR*(142) 

80 im-iT-l^T mmH OO VOU MWT (i-4>";^:aS:IFf^3T1€^J558 

ffi lFft=4T^fj^e 

iOO IFftOiTHENSe - ] 

110 FORX=0TO8:F1iM8«**4+384,STRlW»<6+X*5,i51)i :NEXTX:PRIHTe8% 

.STRINTi^^CviSDi ;FRlNT?%8,STRINR$(fiS,i9i)i -.FCKX^eTOiiPRI^^Sl? ! 

128 F«X=442T0762STEP64 : PRiNTe«* STRING«<5, lSi>, : HEXTX 

130 ?m^=~iim ; F 0RV==iT0i9 : 1 FF^EK (15SM ;-X*g4-^V*5> <;i9iPGKEi5SSi+>5 

*64+V*3, 1£S : P0KEi568i+J<*64+y*3+t, 188 

148 H£XTV,K:PRI^T§6,^'HiTS.^gj :?^IHT?32, ■'^IS^S":.8i 

158 H^i 

168 S=S9«)(0>+.5:1F&=1S=-S 

178 FGRX^B^€i*^T06&-D*6e£TEPS:PRIHT^#64jC«*<3S>i :IFD=aPR!NTK4* 

64+X, fl*i :60T0190 

18efn?lNT^*64+X/B*J 

198 ' 

280 IFINKEVJ='' "fWDO=0Tt€NO=l:Xl=X*2+4:Vl=H*3+2:Sl=2*S:Ol=l 

210 IFOlTHEt^SO 

228 ' 

230 tCXTX 

246 mmm^^, Cf^CSe^; : IF01=eM=H+i :f^INT&38> M : IF?1=3TH£M4^ 

256 H=M><2>:D=D+S0^(. 5-D) 

260 IFO=0O1=O 

278 GOTOl^ 

280 X=>i+S : X2=X1 : V2-Vi : ^S£T<X2, ¥2) : X1=X1+S1 

299 G=G+. 2;IFG<=0O=6:G=9:GOTO390 

300 Vl=Vi+G:IFXl<80RXl>127RE5ET(X2.V2):0=8;G=6:01=8:G0T0240 :IF 
W=3THEH490 

310 F=15366+INT<Vl/3)*64+INT(Xl/2) : IFPE£(«F)=1910=e:G=0 60T039e 

326 IFfE£K<F>=188PRINT»INTCVl/3>*64+INT<Xl/2)-l. " "; :Fl=Fi+i;G 
0T0346 

1 g 



238 SET<Xi,Vl>:Gar022e 

54e Sl=Sl/2:)(=IKT«Xl-2>/6):IFI=9THEIG68 

258 IF!((l~i)=t(GaT03?8 

366 K(D=K:I=I+i 

378 6=6-i 

^8 &0TCG38 

398 PRIHT«i*64,CHR*(30)i :FflR2=8T0I-i:P=8 

488 fOR21=iTO10:F2=15553+2i*64+3*K<2) 

418 IFFtB:(F2)=i8^=P+l 

426 fEXT2i ;F«?Zl=i6T01STEP-l : F2=1^3+Zi*$4+3*K<Z> : IFTCEK<F2>=19 

1GOTO450 

436 IFP>eP=P-l;P0KEF2,188;P(MF2+i.l88:G0T0458 

446 Pt»^2.32;PClK0^2+l*32 

458 NEXT21 

46eNEXTZ:I=8 

478 IFFi=ei1=t1+l:PRINTe38,rii;IFtt=3THEH498 

488 HI=HI+Fl;PRINTM.Hli :Fl=e:C*=rNKEV*: 01=1: 0010248 

498 PRINT^>''YOU HflVE 3 HISSES. VOU HK)"HrHlTS 

m.St ENTER FOR fiHOTHER RUN"i :]WWfi:RUK 

5W FOK<=256T096eSTEP64;REflOV:PRIHT»{*STRII«»(V>m>i :fCXT:DflfTfi2 

t> Ifc 15. 12. 9, 9, 3, 15, 15, 15. 63. 63 

516 PRIHT8738,STRIM»(2.191>; :F«iJ<=882T0866STEP64:PRIMT«(. STRING 

KS.19i>;:NEXTX 

528 F0RX=299T[ll567STEP€7;REfl[)V:PRINT8X.STRING*<V.19t>i ;NEXT:DfiTft2 

a 17, 14. 11. 8 

5^ F0RX=631TO887STEP64:PRIMT§X.STRIN(»<8.191)i :NEXT 

548 G0TO138 

558 FORX=lTO17;REf»V:«XTX:F0RJt=384T0968STEP64:REflOV:PRINTeX.STR 

1MQ$<V. 191); :HEXTX :DftTfl9, 9. 12. 12. 15. 15, 15. 15. 63. 63 

566 F0R)C=56?T093iSTEP64:PRINTeX.STRI«G$<8.191)i :NE}aX:PRM8S86. 

STRIKG*(5.191)i;F0RX=278T0546STEP67:RE«>y:PRI«T?X.STRI»IS»(V.191) 

;:NEXTX: DfilTfl2e.17.il. 5. 2 

576 F0RX=6ieT0866STEP64:PRINTeX.STRING$<2.191)i :NEXTX:Q0T0138 

688 F0RX=1T032 ; REflDV ; NEXT : F0RX=256T(»68STEP64 : REfit>y : PRIHT»4. STRI 

H(i*(V. 191>i : fEXT :0flTfl9, 3. 9. 9. 9. 9. 6. 6. 3. 3. 63. 63 

616 F0RX=lTO7:RE«>V.Vl:PRINT»Vl.STRIHQ*<V.19i); :NEXT:DRTfl5, 781,1 

1. 842. 8, 735. 14. 796. 38, 857. 14, 752. 17. 814 

628 FORX=506TO698STEP64:PRIHTeX.STRIN(»(5,191)i :NEXT;F0RX=iTO3:P 

RINT8X*6?+238. STRINGS (4-X)«3+5, 191); ;NEXT:G0T0138 



20 



CROSS REFERENCE 
UTILITIES 



from 

Lance Mfcklus 



} 



• BASIC Cross Reference J 
•XREF'RX ('REX')»RENUMX I 



Displays all line number references and variables in 
a Level II or Disk Basic Program. Four options are 
available: display all line references and variables, 
line numbers only, variables only, or print all 
references to a single line number or variable. 

Versions available: 

RX (Disk Version) 32K,1 Disk Systems, on Disk 

$24.95 

XREF (Level II Version) Level ll,16K; 

on cassette $19.95 

REN U MX (XREF with renumber and rescue 

after reset) 

Level ll,16K,on cassette, $24.95 

RENUMBER (separately) $7.95 

TO ORDER: 
CALL TOLL-FREE 
1-800-258-1790 

9AM . 9PM, EST 

TheSothi/at^EaJmnge 

6S(xithStreet,Box68,Milford,NH03055 eCB-673-5144 




21 




Lance Micklus' 
STSO-the Smart 
Terminal Program- 
just got SMARTER!! 



ST80D contains extensions for disk 
drive systems to exchange files with a 
timesharing computer or another TRS-80. 



USING ST80D, your TRS-SO can do all this and more: 

Gather and pre-format data, store it on disk, then 
transmit it to a timesharing computer for processing. 
Processed data from the timesharing computer can 
then be sent back to the TRS-80. 

One TRS-80 can generate a data base and share it witK 
another TRS-80 thousands of miles away by telephone. 

Users may customize their terminal program by 
redefining the translation tables. Conversion from one 
set of tables to another takes oniy seconds. 

Auto logon feature sends your account name, number 
and password upon request, 

ST80D can transmit any type of TRS-80 ASCII file, 
including BASIC programs stored in ASCII format, and 
most BASIC data files. Binary files can also be 
transmitted from one TRS-80 to another, allowing even 
machine language programs to be sent over the phone, 

ST80D is a practical, full-feature terminal program that 
has been used on a variety of timesharing systems. 

These include IBM 370, Honeywell Sigma/6, Harris/7, 
DECSYSTEM 20, Dartmouth Timesharing, CDC Cyber 
and HP 2000. 

If you're looking for a professional quality product, 
not an amateur program, then order $T80D today! 



For32K 
disk systems 
$79.95 



TbeSaHnareExi^iaMme 





22 




REFLECTION 

by Ted Lindstrom 



Exercise your deductive reasoning 



To play this game, you must 
master the laws of reflection and 
diffraction (don't worry, the 
program will teach you what you 
need to know). Then the computer 
will hide 3, 4, or 5 balls in a black 
box. You must determine their 
location without being able to see 
into the box. To do this, you send 
tight rays into the sides of the box; 
inside they are reflected or 



diffracted as they encounter the 
hidden balls. By comparing where 
you sent them in and where they 
come out, you should be able to 
deduce the location of the balls. 
Each hit or reflection costs you 1 
point, other rays that exit cost you 
2 points, each incorrect ball at end 
of game costs you 5 points. Low 
score wins; the computer keeps 
score. 



23 



100 CLS 

iie PRINT@££. "REFLECTION" 

120 REM *■ * (BITTEN BV TED LINKTROM * * * 

130 REM * * STAR RffiJTE 1 BOX ll^flft * * * 4= 

148 REM * * EiONNERS FEftRV. IDAHO 85865 * * 

159 CLEAR 206 

lee Lt=STRU^GtC2iV ". "> 

176 PRINT 

188 IHPUT"WOltD VOJ LIKE TO SEE THE INSTfilti;TIONS".flt 

130 IF LEFr*<fl*a>="N" THEN 12m 

286 R?INT 

216 REtl * * * INSTRUCT lOMS * + * 

220 PRINT-THIS GftME EXERCISES VCft* DEDUCTIVE REflSONING. THE 

C:OHFUTER HIDES 2. 4 OR 5 ^ILS IN R BLRCK BOX. CVOJR CHOICE) 

VOL! (UST DETERHIt€ THEIR LOCftTION ON R REFERENCE a?ID MITHOUT 

BEING HK.E TO SEE INTO THE 8(K. " 

230 PRINT :PRI NT "VOU flCCMIFlISH THIS BV ENDING mfS INTO TtC SID 

ES 

OF THE Ea< THESE RfiVS RRE REFLECTED «JD DIFFRACTED AS THEV 

IMPINGE ON THE Bfft.LS. B"/ CaWKING WHERE VOU SENT THEM EN 

AND WHERE THEV COME OUT, VOU ARE FaE TO [>EDUCE THE LOCftTIONS 

249 F1?INT"0F T^£ E;A1.LS. A DEHONSTRflTION OF THE Lffi^S OF REFLECT! 

ON 

RND DIFFRACT It^ FOLLOWS. (PRESS ENTER WHEN READV:i":I^alT fit 

256 aS;GOSUB 2426 

260 PRINT(a8i2. "THIS IS THE BOX, THE NUHBERS KsENTIFV THE ENTRY 

m? EKIT PORTS FOR THE RflVS ". 

270 PRINT" (PRESS ENTER TO CONTINl^)". :IfmT A* 

2S6 PRIHTe832.CHR$<3i)i 

296 PRINTe832,"A RAV ENTERING AT 4 fM? f€ETING NO CS?;TRUCTieiNS W 

ILL 

EXIT AT 21. (PRESS ENTER TO CONTINUE)"i 

506 FOR K=20 TO 84:V=ly:SETa V):FOR 1=1 TO 15:NEXT TWEXT K 

3:10 INPUT fiJ:PRINT9832.CH?$(51,^ 

220 PRINTiSii "OF COURSE DURING PLAV VOU MILL NOT SEE THIS PATH 

THE FORTS 
WILL BE MfWKED WITH LETTERS INDICATING VOUR SEClUENCE OF I^VS 
FIRST RAV - R. SECOND - B,. ETC. <ENTER TO CONTINUE)"; 
S1.B Fm 1=1 TO 25:PC*;E 15748. 52 ;PCfKE 15792. 32:F0R K=l TO 25:^e;T 

540 ?W£ i5?48.65:P0KE 15792,65:F0R .M TO 25:NE^T JiNEXT I 
2 4 



358 INPUT fit 

see cLSiGOsuB 24^ 

27id ?Oi(Z i57?2. 48 

386 PRINTe832, "WffiN ft RflV HEETS ft BALL OIRECTLV. IT IS CfiLLED fl 
HIT 

m> IS fWRKED WITH fiN 'H' ftl ITS ENTRV POINT. CENTER) 
396 FOR X=^ TO 52;V=i8:SETCX.y):F0R 1=1 TO 15:NE<T I:NEXT Y, 
480 POKE 15748. 72 
410 INPUT fl* 
428 aS;G0SUe£42e 
438 POKE 15836. 48 

446 PRINT['e32. "U^Ml-V IF ft RflV ^ES fl BfLl OM EITHER SIDE OF IT 
S PfiTH 

IT 15 BENT ftWftV FROM IT flND PROCEEDS tO fiN EXIT. (ENTER>"j 
458 FOR >!=20 TO 49;V=18:SET<X. V);FOR 1=1 TO 25;NEXT l:f€X\ X 
460 FOk V=17 TO 7 STEP-1:X=4S:SET«. W;FOR 1=1 TO 25;NEXT I:NEXT 
V 

478 POKE 1574Sj65:P0KE 15384,65 
4^ INPUT fl* 

496 PRIHTi822,CHR*<:i):PRINT8S32."N0TE - THE BEN&IN6 OCCURS BEFO 
RE THE RRV REftCHES 
THE SfltlE ROW THAT THE BflLL IS IN, <ENTER>", 

509 IffUT ft$ 

510 aS;60SUB 2428 
526 PRINT^32. "THE E>^CEFTION IS WHEN IT SEES flHOTJCR WLL DIRECT 
LV 

fWEflD, IN THftT CftSE IT IS STILL fl HIT. (ENTER)"; 
538 POKE 15772.4S:PCKE 15836.48 

548 FOR K=2@ TO 52:V=18:SET(K.V>:F0R 1=1 TO 15;HEXT I;^EXT X 
550 POKE 1574S. 72 
560 INPUT fi* 

579 aS:GOae 242*9 

580 F'RINT?83'2. "ft RflV THftT SEES fl EflLL flHEfffi ON ERCH SIDE OF ITS 
PATH IS REFLECTED BACK TO THE EKTRV POINT FM> IS CflLLED fl REFLEC 
TION. "R' (ENTER)"; 
550 PiKE 15836.48: POKE 15708.48 

600 FOR X=28 TO 52:V=18:SET(X,V):F0R 1=1 TO 15:NEXT IiNEXT X 
610 FOR X=20 TO 51;V=1S:RE5ET(X.V):NEXT X 
620 FOR X=5i TO 20 STEP-1;SET(X,Y):F0R 1=1 TO 15:NEXT I;NEXT X 
630 POKE 15748. S2 
640 im^T m 

25 



650 aS:COSUB 2420 1 

669 PRINTi8i£.. 'fi REFLECTION ALSO OCCURS IF T^CRE IS fl 8flLL Ott EI 

THER SIC* AT 

THE ENTRV POIMT. THE RflV CflWBT EhfTER THE BOX. (EMTER>"> 

67& POKE iSSSe, 48 

688 FOR X=20 TO 22:V=18:SET<X/y>;ME>;T X 

630 P£KE i574S. 82 

rm wuT at 

785 PRINT(?S32.CHR*<2i>:PRINTL*SS2, "EXCEPT - - IF THERE IS ANOTHER 
BfiLL DIRECTLY W£fiD.. IT IS ft HIT, (ENTER)". Pa<E 15756.4S.P 

OKE 1574& 72; INPUT ft* 

710 CL3:60SUE 2428 

726 PRIfJT(»8S2. "ft RRV' CfW BE BENT MORE THfiN ONCE fiS IT TRAVELS. 

CENTER) "i 

738 POKE 15836. 4S: POKE i5572>48 

746 FOR X=20 TO 48:V=l8:SET<X, V;:FOR 1=1 TO 15:NEXT I:NEXT X 

750 FOR V=18 TO iS STEP-1;X==48:SETCX. V>:FOR 1=1 TO 15:^EXT 1:NEX 

T V 

768 FOR X=4S TO S4:V=12:SET<X. V):FOR 1=1 TO i5:NEXT I;HEXT X 

770 fWE 15748, 65: POKE 15664.65 

7e« INPltT fl* 

758 PRI«T&832,CHR*(:<1> 

^0 PRINT8822. "NOTICE THAT W£ RfiV COU-D HAVE ENTEfSfr AT EITHER 

4 OR 23. 

ITS PATH MOULD HAVE BEEN THE SflME. (ENTER)", 

810 IM^UT fi* 

S20 CLSifRINTiPRINTif^INT-EXAMIfC EACH OF THE FaLOWING EXflMT.ES 
CS?EFULLV. 

IF IT IS NOT aEHR WHV THE RfiV FOLLOWED THE PATH THAT U DID. OR 

VOU DWH'T UNDERSTAND l*fV A PARTICULAR SWT IS Cffl-LED fl HIT OR 

REFLECTION. REVIEW THE INSTRUCTIONS. CENTER) 

SS8 Iff UT m 

840 CLSrGCKUB 2426 

850 PCKE 15836. 48: POKE 15572. 48 ; POKE 155^,48 

860 FOR X=28 TO 48:y=iS:SETC:=<.y>;F0R 1=1 TO i5;NEXT 1:NEXT X 

87S FOR V=18 TO 12 STEP-1;X=4S:SET<X. V>:FOR 1=1 TO 15:NEXT I:NEK 

T V 

8S8 FOR >:=48 TO 72:V=12:S£T(X, Y):FOR 1=1 TO ISittlEXT I:t«XT X 

89& FOR V=12 TO 31;X=?2:SETa V):FOR 1=1 TO 15:NEXT I:NEXT V 

Sm POKE 15748. 65: POKE 16164.65 

26 



910 PRINT9832, "(ENTER)" 

926 IHpm fl* 

930 aS:a)SlB 2420 

940 POKE 15836,48: POKE 15648,48 

95e FOR X=2e TO 48:^18:SETaV);F0R 1=1 TO 15:^EXT l.HEHl X 

960 FOR V=iS TO 15STEP-1;X=48:SET(X. V):FOR 1=1 TO 15:NE){T IrNEKT 

V 
970 POKE 1574a 72 
380 PRINT^32,"<EKTER>" 
990 INPUT fi* 
10M CLSiGOSUB 2420 

1010 P(XE1583&48;P0KE 15572,48;P0KE 15592/ 48 : POKE 15720,48 
1020 FOR X=20 TO 48:V=18:SET(X,V);F0ft 1=1 TO 15:NEXT IiNEXT X 

1039 FOR V=18 TO 12 STEP-l:>:=4e:SET(H, V):FOR 1=1 TO 15:MEKT I:NE 
XT V 

1040 FOR X=48 TO 72:V=12:SET(X, V>:FOR 1=1 TO 15:MEXT I:NEXT X 
1050 FOR X=2e TO 43-,V=18;RESET<X, V):HEKT K 
1868 FO? V=1S TO 12 STEP-1;X=48:!SSET<:X/ V>:HEXT V 
1070 FOR X=48 TO 71:V=i2:RESET<X, V)-.NEXT X 

1089 FOR X=71 TO 48 STEP-i:V=12:SET(K, V>;FOR 1=1 TO iS.NEXT I;KE 
J<T X 

1090 FOR Y=i2 TO 18,X=48:SET<X,V):FCft 1=1 TO i5;NEXT I ;f£JCT V 
1190 FOR X=48 TO 20 STEP-1:V=13:SET<X/ Y):FOR 1=1 TO 15:NEXT I:NE 
XT X 

1118 POKE 15748. 32 

1120 PRINT0832. "mSLO VOU LIKE TO REVIEW INSTRUCTIONS" 
1130 IHPUT ft* 

1140 IF LEFT*<ftM)="V" THEN 228 

U5e CLS:PRINT"ftS VOU PLflV, VOU WILL BE GIVEN THE OPPORTLWITV 
TO PLftCE BALLS WHERE VOU THINK THEV RRE. VOU KflV RLSO DELETE 
THEM IF VOU CHPrnE. VOUR MIND LATER. " 

1160 PRINT"t#€N mi THINK VOU H*^ THEM ALL LOCftTED CORRECTLV 
TVPE 'Eld' AND you HILL ^ SHOWN t*^ERE THEV ACTUALLV ARE 
AHD RECEIVE VOtS? SCORE. " 
1170 PRINTiPRINT-VOU ARE SCORED AS FOLLOWS: 
EACH HIT m REFLECTION OSSTS VOU - 1 POINT 
OTHER RAVS<THOSE THAT EXIT) COST VOU - 2 POINTS 
EACH INCORRECT BALL AT Th£ END OF GAME COSTS VOU - 5 POINTS 
LOW SCORE WIHSI! <ENTER>" 
li8@ INPUT m 
1190 Rai 't^ * * END OF INSTRUCTIONS * * * 

27 



i2ee as 

1218 RflNDOtl 

122e EV=64 

123© REM * * + SETIF * * * 

I24e rfinJT"NU«BER OF BALLS (2 - 5)";BN 

1250 FOR I = 1 TO BN 

1266 X - RNt>(8>;V = RHD<8) 

1279 IF R(X.V) = 6 THEM fi(K,V> = 1:G0T0 1296 

12M GOTO 12^ 

1296 NEXT I 

ijm as 

131S GOSUB 2426 

1326 GOSIIB 2348 

1336 PRINTe 842. "ENTER Rffr'MHPUT E 

1346 IF E>32 THEN PRir^§832, "ERROR'^FOR 1=1 TO 50e:NEXT I;GOTO 

1356 CT=CT+1 

1366 GOTO 1386 

1376 REM * * ESTABLISH RflV ENTRV POINT flW DIRECTION * * 

1388 IF E>6 m> E<9 THEN X=0;V=E:D*="ERST":GOTO 1448 

1396 IF E>8 AND E<17 T^N X=E-8:V=9:D*=''HOR1H";SOTO 1446 

1406 IF E>ie m> E<25 THEN X=9:V=25-E;D*="1€ST":Q0TQ 1446 

1416 IF E>24 flW> Ea3 THEN X=33-E:V=@:D*="S0UTH'':G0T0 1446 

1426 GOTO 1339 

1438 REM * * SCHN flHERD * * 

1440 EP=18*X+V 

14^ IF D*='*EflST" TfffN I=1:J=0:6OTO 1496 

1466 IF [J*="WEST" T^e^ I=-1;J=6;G0T0 14.^ 

1470 IF D$="SOUTH" THEN I=6:J=l;QOT0 1496 

1488 IF D»=''NORTH" THEN 1=6;J=-1:G0T0 1436 

1498 L=fi<J<+I+J.V-I+J) 

15ffl e=fl(X+L V+J> 

1510 R=fi(X+I-J,V+HJ> 

1526 REM * * KOVE IF aEflR * * 

1536 IF L=6 fW C=6 m> R=e THEN X=X+I;V=V+J:GOTO 1736 

1546 REM * * IS IT fl HIT? * * 

1550 IF C=l a)TO 1868 

1568 REM * * REFLECTION FROM ENTRV POSITION * * 

1570 IF K=@ OR X=9 OR Y=8 OR V=9 GOTO 1^8 

1580 ISM * * rWST BE DEFLECTION * * 

1598 REM * * TLKN * * 

28 



1600 IF [4="Efl£T" GOTO 1646 

iSie IF D»="WEST" GOTO 1666 

1620 IF E>*="SOUTH" GOTO 1688 

1620 GOTO 1700 

1640 IF R=l THEN D*="Na?TH" ELSE D*="SaJTH" :GOTO 1450 

1650 GOTO 1450 

1660 IF R=i THEN 0*="SOLITH" ELSE D*="NORTH" : GOTO 1450 

1670 GOTO 1450 

16S0 IF R=l THEM [>$="EflST" ELSE D$="WEST": GOTO 1456 

1698 GOTO 14M 

1700 IF R=l THEN D*="«EST" ELSE &$="EftST":GOTO 1456 

1710 GOTO 1450 

1726 REM * * TEST FOR E:«:IT * * 

1730 IF X=0 OR X=9 OR V=0 OR V=9 GOTO 1750 

1740 GOTO 14K 

1750 EX = i0*X +V 

1760 IF EX=€P eJTO 13^ 

1776 IF X=0 THEN EX = V 

1780 IF K=9 Tt€N EX = 25-V 

1790 IF V=0 THEN EX = Sl-X 

im& IF V=9 THEN EX = X+8 

1818 CT=CT+1 

1820 EV=EV+l:X=EX:I=EV:GOSUe 1960 

1830 IF EV=71 THEN £f=?2 

1840 X=E:GOSUB 19^ 

iS50 GOTO 2020 

i860 X=E:I=72:G0SLE 1990 

1878 GOTO2020 

1880 X=E;I=82:60a« 19^ 

18^ GOT02^8 

1900 IF X>0 AND X<9 THEN 1946 

1910 IF X>8 m:> X<17 Tt€N i960 

1920 IF X>16 fm X-C25 THEN 1986 

1330 IF X>24 fiND X<33 Tf4EN 20@8 

1940 P0I<;E<15492+64*X), 1 

1950 RETURN 

i960 PE*E(16139+4*(X"9>>. I 

1970 RETll?H 

1580 POKE (16048- <X-17>*64), I 

1990 RETURN 



29 



2068 P0KECi52:71+<32-X)*4). I 

2610 RETURN 

2626 PRIKTe832, "ENTER 'D' TO DaETE BflU OR 'ft' TO ADO WILL OR 

ENTER NEXT RflVMNPUT 6* 

2636 PRINTiS32,STRINGJ<$4." "> 

2846 T$=LEFT*CQ*.l) 

2950 FL=e 

2666 IF T*="D'' GOTO 2166 

2S70 IF T$="ft" GOTO 2116 

2080 IF LEFT$<T$.1>=''E" THEN 2270 

2885 IF flSC<LEFT*(T*a))>65 THEN PRINT6832. "ERROR"; FOR 1=1 TO 5t 

0:fCXT I: GOTO 2926 

2096 E=VflL(G*>:GOTO 1346 

2166 FL=1 

2116 PRINTg852, "EflLL LOCATION BV (XLUffJ m> RW. Ca 26, K)H 5 

26. 5": INPUT H1,N2 

21^ PRINT6852,STRING$<64.'' "> 

21^ NB=N1 

2140 IF <HB>8) HMD <NB<9) THEN V=MB 

a56 IF <NB>16) m> <r»<25) THEN V=25-« 

2168 IF <NB>8) AND <NB<17) THEN X=NB-8 

2170 IF <NB>24> AND <.imZl> THEN X=52-NB 

2180 IF NB=N2 (ffllO 2260 

2190 hB=N2: GOTO 2146 

2200 IF FL=1 GOTO 2220 

2210 IF B(>i,V)=6 THEN 8(>C V>=1 : H=48 : GOTO2250 

2220 GOTO 2110 

2236 IF BfX.V>=l THEN B<K,V>=0:«=46:QOTO 2256 

2240 GOTO 2110 

2256 P0KE(15496 +64*V+4*X),M 

2266 GOTO 2626 

2270 FOR X=1T08 

2280 FOR V=1T08 

2296 IF fi<X,V>=l THEN P0KE<154%+64*V+4*X>,88 

2300 IF fiC^ V)=l fflfl> BCX. V>Oi THEN CT=CT+5 

2310 NEXT: NEXT 

2326 PRINT0842,"YOUR SCORE IS%CT 

2330 GOTO2330 

2340 P(KE 15541. 84:P0KE 15542. 75;P0KE 15543. 32 ; P£KE 1K44.69; 

POKE 15545.. 78 ;pa<E 15546, 68 : POKE 15665. 71: POKE 15666, 65 : POKE 

1^07. 77: POKE 15668,63 

30 



2350 POKE 15669. 84:P0KE 15679, 89 : POKE 15671, 88: POf^E 15672..6? 

2im m<£ 15735, 69 ;PCO(£ 15734, 78: KIKE 15735,68 

237© IF mi=2 Pt¥£ 15B&L 51 

23S0 IF mM POfS i5e6L52 

2396 IF eN=5 POKE 15861,53 

2400 P»;E 15925, 66 :F«E 15326, 65 : FtKE 15927.. 76: POKE 15328, 76 :POK 

E 15929,83 

2410 RETLSRN 

2420 FOR X=e TO 7 

2438 H?INT|S(:2e2+64*X), L* 

2440 NEXT 

2458 FCR >;=49 TO 56 

2469 FW:E(15454+64*CK-48)>,X 

2470 UEXl 

24g@ FOR V=S TO 31:SETC19,V):SET<S5,V>;NEXT 
2490 FOR X=19 TO g5;SETa7>:SET(5s,32>:NEXT 
25^ FOR >i=20 TO 84 STEP S 
2510 FOR V=8 TO 31 
2520 SET<X>V5 
2530 NE)^T:NE>rr 
254e POKE 16875, 57 

2560 FOR K=16079 TO 16183 STEP 4 

2579 V=V+1 

25^ POKE X, 49 

2590 POKE K+1. V+47 

2600 NEKT 

2618 FOR ^=0 TO 2 

2620 P0KE(15917+64*X), 49 

2630 PO»^(16045-64*X+l>,X+55 

2646 P0KE(i5435+4*X>,5i 

2656 P0l«<i5435+4*XH)..^-J=; 

2660 KEXT 

2670 FOR :^=0 TO 4 

2680 PW:E<15853-64*X>,5e 

2690 Pt»<E(15S53-64*X+i),>i+48 

2706 P0}<E<i5447+4*X),5@ 

2710 Pa(E(i5447H*X+l><57-X 

2726 WEKT 

2730 RETURN 

31 



The Best 

Has Gotten Better! 

Sargon, the program that came in 
first in the Creative Computing 
Microcomputer Chess Tourna- 
ment, has become Sargon II -$29 95 

•A vastly improved game 

• Faster response time 

• New level for beginners 

• Easier to pre-set board 

• Hint mode - Wtiat does the computer suggest 

Sargon II is the program that took 
on the maxi-computers in the West 
Coast tournament, and finished in 
the money! More thinking power 
than you ever expected in a TRS-80. 

Novif in stock for immediate delivery 




ws 



TO ORDER: 
CALL TOLL-FREE 
1-800-258-1790 

9AM ■ 9PM. EST 



TheSoHware Exchange 

6 SouthStreet, Box 68, Milford, NH 03055 603-673-5144 



32 



lf\IPUT 



A COLUMN OF YOUR LEHERS 



Dear Sir, 

I am ten years old and I disagree 
with Arnold Gross's statement 
that the Abstract puzzle is "near- 
ly impossible". I did it — on my 
first try — in 25 moves with a 
time of 8:60, In fact, it's easier 
than the Diamond puzzie which i 
completed in 30 moves. 

But, i can see his point about 
Abstract being difficuif for some 
peopie because my Mom tried it, 
but after 80 moves and a time of 
28:31, she gave up. My Dad tried 
it and he quit at first sight 
because he couldn't see any 
sense in the shapes, 

I think Abstract may be nearly im- 
possible for adults, but for bright 
kids It's so easy. 

Signed, 

Krista M. Young 
Oak Park, IL 

Dictated to and typed by her em- 
barrassed father, Rocky Young. 



Dear Sir, 

First, I wish someone would write 
an analysis of variance program 
which includes the "interaction 
of the main effects". I purchased 
the $20.00 statistical program 



which your company sells; but 
like others, its program does not 
include the interaction analysis. 
Analysis of the interaction effect 
is of great value in various 
research projects, but I just don't 
have the time to write the pro- 
gram myself. Maybe someone 
could write a patch program 
which t could incorporate In my 
existing statistics software. 

Second, I need help in assembly 
language. 1 wish someone would 
write sample programs in basic 
and in assembly language so that 
I can see how the two are related. 
I bought the Radio Shack 
assembly language book, but I 
need to work with "sample pro- 
grams". I wish someone would 
also describe how to "run" an 
assembly language program on 
the TRS-80. (I bought the editor- 
assembler, t)ut I have not been 
successful in running the sample 
program.) 

Third, I bought a recent publica- 
tion on "TRS-80 interfacing" - a 
fantastic book. I want to buy the 
interface/breadboard but no one 
has it in stock yet. 

Sincerely, 

Rocky Young 

University of Illinois at 

The Medical Center, Chicago, IL 

33 




Written t)y the author of your Level I Users Manual, LEARNING 
LEVEL !l picks right up where the Level ! Manual leaves off. it also 
supplies the changes needed to make the Level I Manual compatible 
with your Level It TRS-60. 

LEARNING LEVEL II covers all Level I! BASIC beyond Level I, plus 
much more, tt shows you how to use the Editor, explains what the 
many error massages are really saying, and leads you thru conver- 
sions of Level I programs to Level II. 

Dual cassettes, printers, the Expansion Interface with clock and 
other features are explained !n the same easy-to-learn style that 
made the Level 1 Manual famous. LEARNING LEVEL 11 was created 
specifically tor your Level II TRS-80! 



Yes, I want to ready learn how to use Level H! 



Pleasasend coplesol 

LEARNING LEVEL II. MychacK for $16.95 + 
Si.00P4Hlsendosad. 



I und^rsland my order wllf be shippc<^ 
prompti/ and IhBre is a 30 dgty monsy.back 
guarantee. 



$15^^ 



(soft cover) 



Name ..„ 

Address _ 

City 

State 
Zip Code 



I JheSaHttarB Exchange 




by George Blank 



AU you do is insert the diskette in the drive and type the name or number 
you use for that diskette. The program automaticaily reads the directory 
of the diskette, ignoring invisible files like BASIC/CMD and normal 
DOS files like DISKDUMP/BAS, and stores it in a disk fISe, 

Display options include: 

Printout to screen or line printer 

Alphabetic sort 

Search for single program using INSTR 

(A search for TRE would find STARTREK and 

TREES) 
Index to single disk 
Search and RUN progratii 

Three programs on BASIC tape with instructions for 
loading on a NEWDOS diskette and instruction manual. 
$14.95 



IMPORTANT: This program requires the 
following minlmiim System: 

NEWDOS by Apparat (Uses 
CMD"DIR" and OPEN*'E") 

32K of Memory 

At least TWO Disk Drives 





TO ORDER: 
CALL TOLL-FREE 
1-800-258 1790 

9AM • 9PM, EST 



TheSoftH/are Exchange 

6 SouthStrect, Box 68, Miiford, NH 03055 W3-673-5144 





H 



Si . ;i. K!- .. 



DANTE'S 




A CompuNovel by Gerard Bernor 



In anticipation of tiiat distinguished multitude who 
demonstrate concern for the weltare of tfieir souls only at 
Christmas and Easter, the Prince of Darkness awaits in the In- 
ferno. Your task, having sold your soul to the dark one for power 
and wealth in this life, is to slip into heli, retrieve the contract by 
which you are bound, and escape. 

Tfiis program does not use any fancy programming methods, 
yet demonstrates that the key to a good game Is the concept, 
not the technique. Mr. Bernor is to be congratulated for his 
literary ability and his appeal to our Imaginations. 



ma REM * * DFfNTE-S INFERhfi * * 

1010 REM * * FH? THE TRS~8e LEVEL 11 IbK: * * 

1820 REH + + C0PW:1QHT 1979 B¥ * + 

1030 mi *■ * flDV'EHTURES IH S«^Tt*RE * * 

1040 RC=8 : D=0 : CL5 : PRI MTCHR$< 22 ) 

1050 PRmT:PRIHT:F1?IH7:PRINT:PR]NT:Pf?INT 

1060 f-RltiV DflNTE-'S INFERNO" 

1870 GOeUE?.?40 

1^0 CL5:P(?INTCHR*f:2:0 

1850 PR I NT "DO VOU NEED iNSTRiit;TIOrJS???" 

110« KiSUK688;REM TO INKEY 

1110 IFftJ="N''aS:PRINTr:M?J(23):PRINT"THEIS IS ft BORT OF LOST SC4I 

LSVPRIHT-OMING DOWN THE RIVER 5TV)^.";PRINT"V'aj'VE K)T TO WAIT 



3 7 



UNTIL TI€V":PRINT"BffER THE GATES OF HaL ":G0T0128e 

il29PRIKT 

1138 CLS:PRIHTCrtW(23) 

1140 PRIMT"IN EXCHfWGE FOR THE RICHES t5F" 

1156 F^IHT"T^E WORLD. VOU KftVF SOLD VOUR" 

116fl PRINT"SOUL TO THE DEVIL " 

1170 PRINT 

1180 PRINT-NOH VOU RESIZE THftT YOUR" 

1190 PRINT" IMHORTflL SOUL IS mHH MOtS" 

1200 PRINT"THflN FAME AND GOLD, " 

1218 PRINT 

1220 PRINT'VOUR TASK IS TO ENTER THE" 

1230 PRINT "QfiTES OF t€LL Firtt? VOUR" 

1248 PRIHT"COWTR^T WITH THE DEVIL. " 

1258 PRINT"»«) ESCfif^ MITH IT. " 

1268 PRINT 

12?0 PRINT"Qa)D LUCK!'!" 

1288 GOSUB5740 

1296 M9=45:Ti=44:T2=45 

1368 DI)1W<M9),M(6.MS> 

1316 F0R1=1T0H5 

1326 REmi 

1330 IFI=NTHEN1366 

1346 PRINT"t^TRBfiSE PRCREH". I.^ N 

1356 STOP 

1366 F0RJ=lTO6:REflWI(J,I):HEJ^TJ 

1376 NEXT I 

urn Gosue26t^ 

1390 N=5 

1468 RC=RC+i 

1410 IFRC>=3GQS11B577S 

1420 t1@=0 

1430 i^=e 

1440 IFRS=eTHENT=TlELSET=T2 

1450 P=8 

1460 JL=e 

1470 P1=0 

1489 F0RJ=1TC«3 

1490 WU)=0 
1500 (CXTJ 

38 



1510 PRIffT 
1520 G0SUB2678 

1539 PB=H0+i 

1540 QOSL!B2220 
1558 G0Slffil718 
1568 GOSUB1890 

1579 IFT>0THEH15:<e 

1580 IFMOSTHENlSiS 
1530 GOSUBl^e 

161g PRIST" CONGRftTUiaT I OWS I i " 

1626 FRIHT 

16:<a PRINT-VOLt HfiVE RETRIEVED iiM SOUL" 

les^ mm 

i£m mnvcm vou m n ^ghin ??^". 

1S70 G0SUB5688 

1^ IF6*-"N"Q0T05&68 

1690 RS=^i 

1760 G0T0iS36 

1710 IFTOMTh£HRETl!t?H 

1720 in<0Tt€NRETll?N 

1730 IFM6+5>l10THENftERlRN 

1746 PRM"HflNT TO TAKE IT i^ITK YOU MOH?" 

1750 6OSl«5680 

17® IFfl$="H"0RRJ=")«)"Q0TO1819 

1770 T=-l 

1780 aS:PRINTCI«*C23) 

1790 PRINT"OK, LETS GET OUT CT HEf^!" 

1890 RETURN 

1810 CLS;PRINTCHR«C22) 

1820 PRINT"WEU LEAVE IT «RE FOR MOW" 

1828 PRIffT"fM) VOU mi LOOK fKOUKD SHIE*' 

1840 PRINT "HORE. " 

1350 PRINT 

I860 PRINT"DWt''T FORGET HHERE IT IS! I !" 

1878 H6=H8 

1880 RETURN 

1890 lFH=12T^e»ETURN 

1998 rFP=lTf£NRET!^ 



39 



1916 IFri=T2Tt^lRETURN 

1S26 IFTO-ITHEM^TURH 

1938 IR«>=3G0T0i95e 

1946 IFN=16T^CHP=16e 

1938 IFPl>0Th£HPl=Pi+l 

1%0 IRC>=3f»»H=4lTI«HPi=Pl+l;Q0T019£e 

1378 IFK=3THENP1=P1+1 

1988 IFPK15THENRETURH 

1998 aS:PRIMTCHR*<23) 

2006 PRI^^■"F^?0M the dhrk lerp the itcuer 

2810 R?INT"CF H£PH]ST[iPHELES, " 

2620 PRINT 

^36 CSflVfnCV SffflTCH THE COHTFlffiT flWfiV" 

2640 PRINTTROR YOU. IN Th£ CONFUSIW)" 

2650 PRINT"VCm MftNfiGE TO SLIP INTO Ttf " 

2066 F^INT-DflRKNESS, " 

267^ PRINT 

2680 PRIMT"feW THEV ARE flLEi?TED FOR VOU. " 

2090 PRINT"BE VERV CftlTIOUSI '1" 

2190 P=l 

2110 T=T2 

2128 RETURN 

2120 R*=IfrEV* 

2140 IFfi*=""(»T0212e 

2156 IFft$="B''T}ffiHfil=i: RETURN 

2166 IFfl*="L"THENRl=2:RETURN 

2170 IFfl$="U"THEMRl=3:R£TU}^ 

2186 rFft*="0"T^€^lfll=4:RETURN 

2196 IFfl*="R"THEfffll=5: RETURN 

2266 IFR*="F"THEr«l=6:RETUI^ 

2210 G0T021S 

2226 N94I 

2238 M8=e 

2240 60SUB257e 

2356 iFN=lTtEN22^ 

2260 N6=N 

2270 Re=fll 

2288 I=HCfil,N) 

2298 IFI=-2THEMI=H3 

2386 IFDOetHENPRINT" OESUG"; Hi "TO"; I 



40 



2310 IFI<5e0THEN2340 
2320 1=1-560 

2339 G0T(^29e 

2340 ONI/100QOTO2378,2409 
2350 N=I 

2369 G0T02428 
2379 H=M90 
2388 IFT=-1THEHN=N+1 
2396 GOTO2420 
24B9 N=l-208 
2416 IFT=-lTHEm=ff^P 
24^ IFNO1THEN2470 
2438 F0ftJ=lT06 
2448[iaN)=2 
2456 next; 

246eti<?-fle,fty^ 

2476 IFK8O2THEHG0SUB2e76 

2486 K(*l)=l 

2496 HS=« 

2500 IFt1<l.N)<>-2THE«2569 

2516 I=M<6,H) 

2526 IFH<4,N)>iee*RM>Ce)THENI=H(5,N) 

2538 IFH<2. N)>iee*RND<e)THENI=M<3< H) 

2546 IFDOaTHEHPRINT-OEBUG BOUNCE TOM 

2^6 001(^290 

2566 RETURN 

2570 PRINT: PRINT" WHICH WflV?"i 

2586 aJSUB2138 

2596 RETURN 

2600 IFft$="MO"ORR*="N"GOTO2€60 

2516 CLS:PRINTCHR$(23) 

2626 PRIHT'TVPE B.F.bR,U OR D FOR" 

2636 PRIHT''8RCK, FJBIf^Dj l£Fl. RIGHL " 

2646 PRINT-UP OR DOHH. " 

2656 Q0SUE5746 

2660 I^TURN 

2670 I=M(M/5) 

2688 J=H-5*I+1 

2696 0NI+iG0T027M. 2718, 2720> 2738. 274a 2758, 2760. 271^, 2788, 2736 

2760 ONJ6OTO2S90. 2890, 2938, 2980, 3856 



4 1 



2718 0NJ60TCi211g, 3238. 3298,. 3358. 34^ 

2728 OMJGOTO3420.. 34^. 355?,. 3596. 3676 

2730 0NJGOTO372a 3798.. 3866. 2S28. 3588 

2748 ONJ60TO484B. 4118. 41S8. 42^. 42S8 

2756 C^JGuTe4320, 4388. 4498. 4559. 4570 

2766 0MJG0T04658.. 4?ia. 4758. 4878. 4928 

2778 eNJGOT04978. 5028.. 5878. 5128. 5228 

2786 0NJGOTO52^. 5338. 5398. 54?8> -S538 

27^ i:SJ-ja)T85588. 5638. 5S48. ^m.- 5668 

2Sei8 IFTONTHEN2838 

£8ie PRINT"VCiU'VE BLSO F8UND THE HIDINQ" 

2826 FRINTTLRCE OF Sfiim'S CfflJTRftCTS. " 

2630 ]FT<>T2TJCN28^ 

2840 IFT1=T2THEK2^8 

2858 IFTl<>NTHEN288g 

2868 PfllNT-eUT THE RECmS HRVE BEEN" 

287^ PKIHT"MOVED, " 

2S80 RETURN 

269e DftTfli.e.a.6.e.8.8 

2986 CL£;PRINTCHRIC23) 

2910 PRINT"yOU*RE ftl Fi DEflC* EH&!" 

2920 GOTO280@ 

233Q DftTfl2. -2. 181; -Z 8. 0. 

2940 CLS:PRINTCWi$(23) 

29^ PRINT"VOU Cm^T GO IN THftT" 

2960 PRINT"[)Ifi£CTI(»t!" 

237^ 6OTO2^0 

2580 DRTftS. 33, 2, 1. 18, 196. 4 

2990 Ci.S:PRINTCHR*<23) 

2089 PRINT-fl TUKI€L EXTENDS IN FRONT AND" 

3810 PRINT"BEHINCi VOU. THERE IS fl t«3LE IM" 

3020 PRIKT-Tt^ WfiLL ON VOUR RIGHT THfiT" 

3830 PRINT" IS (LOMING HEIGHT REP. " 

3^40 GOTO280@ 

3950DfiTfM.3.3e.2,ll.2.1 

3966 aS:PRIHTCHR*(23> 

3070 PRIKT"THE \W IS STEflHIKBj IN Ff^NT" 

3880 PRINT"£F V(XJ. IT IS COMING FRffll" 

3030 PRINT'S E>EEF PIT. " 

3106 G0T02Se8 

4 2 



It It 



2il0 DRTftS, 8, 8. 15. 18. & 16 

2128 aS:PRINTCHR*<23) 

3130 PRIKT'VOU'RE OH THE BfiMK OF THE" 

2148 PRINT-RI^tR STVX. CHUNKS CF" 

3158 PRINT"BRI«STOHE FLOAT ON MOLTEN" 

3160 PRINT"LflVft THE GftTES OF HELL" 

3170 PRIMT-fffiE HHEflD OF VOU. OVER Tft" 

ilSe PRINT"GfiTES IS THE LEGEND; " 

2190 PRINT 

3280 PRINT" 'fmmn RLL HSt" 

3210 PRINT" W WHO ENTER fCRE'" 

3220 GOTO280e 

3230 W1Tfl6.ie,3,2.i@.2.2 

3240 aS:PRINTCrt?*C23) 

3258 PRIHT-VOU^VE ENTERED SRTftN'S ROOM. 

i260 PRINT"n-'S UK;KY FOa VOU THRT VE'S" 

5270 PRINT"NOT HERE HOW. " 

32^ G0TO2^8 

3^ DflTfi?. -2, 101, -2> a 0, 8 

3300 aS:PRIKTCHR$(23; 

3310 PRINT-SfllfW IS HERE. VOU'D BETTER" 

3320 PRINT"TRV fWOTtCR WW. " 

3330 GOSUe5750 

3348 6OTO2800 

33^ DflTfte. 18. 13, 15. 16, 18, 9 

3360 CL£:PRINTCHR*(23) 

3370 PRINT"Y8U''RE IH PLiRGFlTORV. ISLL IS" 

3388 PRINT "STf3=!lGHT flHES*. " 

3396 G0T028^ 

3488 [}flTFL^,-2,33,5,l,8,~2 

3410 60T023^ 

3428 DflTftL8, ~2. 181, -2, 9. 8, 8 

3430 CLS:PRINTCt«?*>;23> 

3448 PRINT"V01J-'RE NOT GOING TO GET FRR" 

34K PRIMT-'&IGGJHG THFOLIGH ROCK ! M " 

3460 G0SljSB5748 

3478 eOTO2808 

3480 £)flTflll,l.i3,4,2,l,2 

3498 aS:PRINTCHRJ(2:0 

3^8 PRINT'VOIJ'RE fiT THE BOTTOM OF ft PIT. 



43 



3518 PRIHT-IT IS VERV DARK AND VOU CflH" 

3520 PRINT"HEflR THE SOUNDS OF BUBBLING" 

3S3e PRINT'lRVfi ON VOUR LEFT. " 

3546 GOTO2808 

3350 DflTfliS, 36,2.1,2,1, 2 

3560 CLS:PRIHTCW?*<23J 

3570 PRINT-VOU'RE AT fl DEfO e«>! ! !' 

35^ GOTO2S00 

3590 DftTfll3,2.37,2.Lll,14 

3600 CLS:PRINTCH?«<23) 

3610 PRINT'VOU^VE ENTEi?ED Fl LflRGE GROHO. " 

3620 PRm"T>€ FLOOR IS COVERED WITH" 

2636 PRIMT"HHfllT LOOKS LIKE HUifiH BONK, 

3640 PRINT"FIND VOJ CPU HEAR FftINT S01M>S" 

3650 PRIHT"ffl€flD. " 

3660 6OTO2800 

3670 OfiTfii4, 13, 1, 19, 2, 31, 31 

3689 CLS;PRIMTCHR*<23) 

3690 PRINT"VaJ'RE UNDER fi HEfiTING SHftFT. " 
3700 PRINT-THERE IS fl DIK RED GLOW fiBOVE. " 
3710 (MT02We 

3720 DflTfil5. -2, 181, -2, 0, 6, 

3738 aS:PRINTCHR$(23) 

3740 PRIKT"VOU'RE NOT R BIRD, VOU" 

3750 PRINT"CfiN'T FLViM" 

3760 6OSUB5740 

37^ (a)TO2800 

37^ DfiTfllS, 5, 33, 2, 18. 1, 186 

31^ aS;H?INTCHR*<23> 

3896 PRINT'-VOU'RE IN HELL'S PtB^TfiL. " 

3810 PRINT"fl SMflLL OPENING IS OH VOUR" 

3828 PRINT"LEFT FM) VOU CAN SEE FORHflRD' 

3830 PRINT"DIMLV AND TO VOUR RIGHT. " 

3840 PRIKT"T}£raE IS LICa^T BEHIf^ VOU. " 

3850 K3T028^ 

3860 DflTftl7,-2,181.-2,6,6/8 

3S70 CLS:PRINTCHR*C23) 

3^10 PRINT" IT'S fi TIGHT SGtEE^, VOU" 

3890 PRINT" CftN'T GET FAST CfiRRVIfffi" 

3900 PRINT' THE BOX OF COHTRfiCTS " 

44 



5916 G0aiB5756 

3929 MTftig, -2, ISl. S. 6. 8^ 9 

2948 PRINT" IT LOC^S LIKE VOU'RE HflVIH6" 

3958 M?INT"TRatH.E GOING TO HELL " 

3%0 G0SUB5748 

3979 GOTO28S0 

3988 DftTR19. 224.. 2> Z> 14. 1. 42 

3998 aS:F1?INTCHR*(23> 

4600 PRINT"*.^J'RE fiT THE TOP OF fl HEAT-" 

4010 PRIHT"IHG SHAFT. FUMES FROM BB-GU" 

46^ PRiNT"BURN Va« EVES. " 

4838 GOTO2808 

4848 DflTfl20l, 22€. 29. 2. 2. 25. 2 

4858 aS;PRINTafl«(23> 

4868 FRINTnHE TUNNEL FLOOR SUDDENLV [JROPS" 

4870 PRINT "flUftV. IT LOOKS TOO WIDE TO TRV" 

4880 PRINT"Rfei JUtlP. AND ECHOES FROM BEL(M" 

4e©S PRINT" IHDICftTE IT IS VERY KEP, " 

4108 G0T028^ 

4118 OflTft21. 1, 226. 2. Z. ^ 25 

4120 CLS:PRMCHR$<23> 

4130 PRINT-VOU'F^ IN HELL'S CEHTRftL" 

4140 PRIflT"HEf!TIMG SySTEfl, THERE RRE" 

4159 PRIHTTIPES RNO SHRFT5 LEROING' 

4168 PRIHT"EVERVMHERE. " 

4179 GOTO2800 

41^ [flT822. -Z, 33. 13. 58. 29. ^ 

4190 GOTO2800 

4200DfiTft23.2.1.2.31.44.2 

4218 CLS:PRIKTaffi*C23> 

4228 FRIHT"<rtW'RE OH fl RKKV LEDGE OVER-" 

4238 PRIHTTOOKING THE THIRO LEVEL OF" 

4249 PRIKT-TORtlENT, " 

4258 GOTO2808 

4260 &FlTfl24,-2.101.19.8.6.0 

4270 CLS;PRI«TCMR$<23> 

4280 PRINT-I HERR THE GflRGOyLES OJRINGi!!" 

4290 i^INT"Vaj-D BETTER GO BRCK!" 

4398 G0SU85748 . 

45 



4318 G0T028ee 

4328 DflTfi25,a,26<2,2.1>27 

4338aS:PRINTCHI»(23) 

4346 PRINT-VWRE IN THE OWE OF THE" 

4358 PRlWT"GflRGOVLES. BETTER NOT BE" 

4368 PRINT"HERE MHEN THEY RETURN! ! !" 

4370 GOTO2800 

4388 0fiTft26. -2. 65> -1, 58, 11, 14 

4^8 aS:PRINTCHR$C23) 

4488 PRM"VOU ARE IN DflNTE'S INFERNO" 

4418 PR INT "RESEARCH flWD DEVELtWIENT" 

4426 PRINT "fiREft * 

4438 PRINT 

4448 PRINT" THIS LEVa OF HELL IS HOT" 

4450 PRIHT"OPEN TO VISITORS- VOU MILL" 

4468 PRINT"Hfi(^ TO LEAVE IKMEDIfiTElV! ! !" 

4478 G0SUB5748 

4486 G0TO28@6 

4498 DflTfi27, 25, 48, 2, 2, 21, 28 

4506 aS:PRINTCHR*<23> 

4518 PRINT-VOU'RE IN TIC PIT OF THE" 

4526 PRINT"«ORTflL SINNERS. I CAN tCflR" 

4538 PRINT"THE« COMING NOH! ! !" 

4548 60T02888 

4550 MTA28, -2, 66, 221, 56, 14, 19 

4566 00X02888 

4578 DftTR29, 2, 43, 15, 13, 1, 1 

4580 aS:PRINTCHR*C23) 

4598 PRIHT"VOU'RE ON A NARROM LEDGE fffiOVE" 

4606 PRINT" ft DARK PIT HHERE LOST SOULS" 

4618 i^INT'TEED THE FURNRCES. VOJ HlfflT" 

4626 PRINT"BE ABLE TO SLIDE DOWN BUT VOU" 

4630 PRINT'-MON^ BE ABLE TO GET BACK UP. " 

4648 G0TO2888 

4658 DfiTA30,34,34,2,l,4,2 

4668 a.S:PRIHTCHR*<23> 

4676 PRIHT"VOU'RE IN ft LITTLE GROTTO. " 

4688 PRINT"LOST SOU.S 3«)VEL COAL fW 

4696 PRINT"StlR« INTO STEFSIIWi PITS " 

4768 GOT028e6 



46 



4?ie M)T(Gl,i4,i4,23;,2,l,45 

47^6 aS:PRINTCHftt:C23) 

4738 PR1NT''Y«J HflVE ENTERED TJC F(X«TH" 

4748 PRINT-LEVEL OF THE DftlffO. rnXW 

4750 f^INT"VCW PHE T^t Tffla^NTED WITH" 

4760 PRIMT"BURNING LOflOS HUNG FROM THEIR" 

4770 PRINT-fiRHS fiND LEQS. " 

4780 GOTO2880 

4790 OfiTfBS: -2, 101. 516, &> 0, 

4SM aS:PRINTCHR$C2S) 

4018 PRIHT"VOLKRE IN THE SULFUR SUPaV" 

4828 PRINT" TUBE AIDING DCWN ftt® DO*. " 

4830 PR I NT "THERE'S NO HfiV VOU CAN HCID" 

4848 PRIHT"C« ! I ! t«^TCH OUT ! ' ! " 

4850 G0SUe5746 

4860 GOTO2808 

4870 0flTfQ3,2,l,2,L116.3 

4^0 aS;PRINTCI«*<23) 

4S90 PRIKT"T}€ 7t^*£L N^?0«S fiW> TUWB" 

4308 PRINT"THE CORNER. " 

4918 GOTCe800 

4920DfiTfl34.1,25,2.1,38,30 

4930 CLS:H?IMT01R*<23) 

4940 PRINT"VOU'RE IN fl NfiRROH TWISTING" 

4956 PRINT"TIM£L " 

4960 60702^0 

4970 DflTfl35.2,l,2,37.34,36 

4980 aS:PRINTCHR*<23) 

4990 PRIHT'VOU'RE IN ft TMISTIHG NflRROJ" 

5^ PRIHT"TUHNEL. " 

5010 GOTO2880 

5820 I)flTa36.35,2.1,37,34.12 

5030 CLS:PRINTCHR$<23) 

5040 PRIKT"VOU'RE IN fl ^RV NfiRROH" 

5050 F1?INT"TWISTIMG TUNfCL " 

5060 GOTO^00 

5870OflTft37.2.1,35.2.iX2 

5080 aS:PRINTCHR$(23) 

5096 PRINT"VOU'RE IN ft VERV TWISTIf«j" 

5100 PRINT"NflRROW Tt*WEL ' 



47 



5119 GDrO2890 

5126 MtTfl38,2,21,2,116,l,2 

5130 CLS:PRINTCHR*<22) 

5140 H^INT-VCWRE IN THE FIFTH LEVEL OF" 

5158 PRIHT-HIS SflTfiNIC MflJESTV'S DOMAIN. " 

51S8 PRINT"HERE, THOSE WHOM LUCIFER" 

5179 PRIMT-'GMS HIS PERSOHflL ftTTEMTION" 

5180 PRINT"fiRE DESTINED TO RE!1F1IN FOR ALL" 
5190 P!?IKT"ETERNITV. VOU CftN SEE ft" 
5200 PRIHT"SHflLL OPENING IN TF£ aOOR. " 

5219 GOTO280e 

5220 WiJfQ9> 4h 40, 2, 12, 2h 26 
5230 CLS:PRMa«$(23) 

5240 PRIHT"Va!''RE ST«fl)ING IN FRC»*T OF AN" 

5250 PRIHT"EVIL SMEUIMG PIT. VOU HfiV" 

K60 PRINT'SLIP IN. l^TCH OUT!!!" 

5270 6OTO2800 

5288 DflTfl40, 40, 48, 2, 2, 27, 41 

5290 CLS:I^INTC«?t(23> 

5380 PRINT-VOU'RE IN TfC SECTION OF THE" 

5318 PRINT"THICE OflntttD!!!" 

5328 GOTO2860 

5338 DftlfML 48, 36, 2, 18, 40, 33 

5340 CLS:PRINTCH!*<23> 

5350 PRIHT"VOU'RE IN T« SECTION Sf THE" 

5360 PRINT"CUfffiED, IT'S FILLED WITH" 

5378 PRINT"POISIONaiS FUMES. " 

53^ 6OTO2808 

5^8 DflTfi4a 28, 28, 28, 28, 28, 28 

5408 aS;F1!INTO«*<:23> 

5410 PRINT"VOU'(^ IN !ȣ. CftVE OF LOST" 

5420 PRIHT"SOULS. SULFUR AND BRIMSTONE" 

5430 PRINT"FUMES Smi VOUR EVES m> VOU" 

5440 PRINT"HftVE ALSO LffiJ VOUR SENSE OF" 

5458 PRINT" DIRECT ION. " 

5468 GOTO2800 

5470 DfiTft43,2,i,2,i0,29,2 

5480 aS:PRINTCHR*<23) 

54M PRINT"VWRE IN T^£ CRVEI9< OF FIRE. " 

5500 PRIWT'VQH; SKIN IS BUIfflING fflO THE" 

48 



5516 PRINT'PfllH IS U-KflRflBLE, " 

5529G0TO28ee 

553eDnTfl44.2.23,Z10,2,2 

5546 a5;PRINTCHR*<23> 

3558 PRIMT"V0O'RE IH THE RECORD KEEPIMG" 

5560 PRI«T "SECTION. 

557« GOTO280e 

3588 CLS:PRIMTCHRi<22> 

5598 WITft45,5Lij2,18,2.2 

5606 PRIKT'Vaj'RE IN flNOT>€R REOJRP" 

5616 PRINT"KEEPIHG SECTION. " 

%26 a]iT02^6 

5636 REH 

5648 REK 

5658 REM 

5666 REn 

5^ END 

5686 fl$=INKEV* 

5698 IFf»=" "60705686 

5700 IFfi»='N"RETURH 

5710 IFfl$="V"RETURH 

5;^ K)T0568e 

5738 fORI=lTO5690:HEXTI;RETURN 

5748 FORI=1TO2560:NEXTI:RETURH 

5758 FORI=lTOie0e:HEXTI:RETURN 

5768 F0RI=lT056e:NEXTI:REnJRN 

5778 aS;PRIHTCHR$<22) 

57^ PRIMT"TOU'I£ GOING TO REGRET IT IF" 

5790 PRIKT-TRV ffifllU I'd KING TO t«(E" 

5806 PRINT"THI^K»S fl LITTLE mmi FOR V«J" 

5810 R?1NT"THIS TItC, " 

5828 PRINT 

5830 PRINT"GOODLlfCK!M'' 

5840. SOSUB5730 

5850 RETURN 

5^ CLS;PRINTI>1R*C23> 

5870 PRIKT:PRINT:PRINT:R?IWT:PRIHT 

5880 PRINT" GOOD BVE" 

5898 PRINT-.PRINT;PRINT;PRINT 

5988 END 

49 



v. .* ^ * • - * ; .* IT 

; !• t .• •• s^ r 



What do you do when you finish reading 
TRS-80 Assembly Language Programming 
by Bili Barden . . . 

and you want to do some serious machine 
language or assembly language programming? 

Buy the 

Z80S<tftware 



^Rt Guide & Cocdcbook 




utility Routines • Slack Operations • 
Searches and Sorts • Floating Point 
Routines • Z-80 Instruction Set 

The index lists over 100 assembly language 
routines and subroutines that you can use! 

$14,95 plus $1.00 shipping 



MORE BOOKS FROM 



New from 
SCELBI 5lDJ 
Publications 




TbBSaitMareEjtchange 



TRS-80 DISK AND 
OTHER MYSTERIES 

by Hafvarid C. Pemingion 
4f you are serious enough about disk pro- 
grammino to own RSM-20or NEWDOS+, 
then you ought lo purchase this book, \i 
expSainS the organization and features o1 
TRSOOS 2.0, 21. 2.2, NEWDOS, and 
VTOS, tells you how lo use Superzap, 
RSM'2D^ Monitor 3, D^bug, Diroheck, and 
LMOffset, explains the directory track on 
the disk, tile structures (Jnclud3n<] Electric 
Pencil fifes), and even gives detailed pro- 
cedures for recovery of lost dati While 
this book is not recomrnended for the in- 
experienced user, it is essential for the 
serious disk progrgmmer. Tho book is ex- 
penstve, inB'/z by 11 format with t^pevirrii- 
ten insteail of t/p&sel printing, and only 
130 pageSj yet Ihe information is virorth 
the price. l^9.9b 

plus ^1.00 shipping and handling, 

LITTLE BOOK OF 
BASIC STYLE 

John M. Mevison 

Ideal referenco for BASiC programmer, 

junior higti to research scienttst. Indexedi 

illusirated 151 pages. 

$5il5 plus$1,00shipping and handling 



TRS-80 ASSEMBLY 

LANGUAGE 

PROGRAMMING 

Wllliann Barden, Jr. 

Covers Z-BO, an Inuoduction to AssembJ^ 

Language, Ihe Radio Shack Shack Editof/ 

As&embter and T-0ug, and debugging 

meihode; also explains how to move 

data, the use of atHhmetic, compare, 

togic, arid bit operations, shifts, strings, 

tables, input and output, and 1 2 corntnon- 

ly used auiM-outines, Weil indexed and i!- 

luatreted. 

*3,9« piusSLOOshippingandhamlllng 



TRS-80 INTERFACING 

by Jonathan A, Ti1u$, 
This valuable reference book tor the hard- 
ware enthusiast with an understanding of 
Assembly language programming in- 
cludes the schematic, printed circuit 
board artwork, and Instructions \or 
t>uiiding aTRS-EO breadboard, plus 10 ex- 
periments to give a solid understanding 
of interfacing to theTRS BO. SS.95 

plus Sl-OO for shipping and handling 




.'i, Alexander cli^wiis conquer the world Your goal is the 
Univefssi! But, there's a lot more to bulidtng an empire than' 
tiring a cannon. In ttils magnificent simulation, you let your 
armies fight the battles, while you decide where and when to 

light, plan the use of your resources, huM warships and 

transports, set tax levels, dispatch intelligence missions, and 

draft armies. The best grand strategy game for the TRS-80! 

18K Cassette — $14.95 
^dCtof TheSotiwmreExjchange 




^SSM The SaftH/are Exchange 

IMS^SS^ ^ ^*'^ Stree-I, Box 68, Millnid, Nl i OmS 60h673-5144 

CLCCTRic pen 

Effoiiiess LiVT'Mlg is \em\ 

The Electric Pencil by Michael Shrayer 
is a true word-processing program for 
the TRS-80. Enter your manuscript, 
and let your computer do the work. 
Editing? Just position the cursor with the 
arrow keys . . . one-key commands let you 
change, delete, or insert. Fully 
adjustable margins, left/right justifica- 
tion, variable spacing, page headings, 
and much more! Save and recall your text 
with tapeor diskfiles. Typing everything 
from tetters to reports is fast and |_evel II 16K tape^SI 00.00 
Incredibly easy using The Disk version -$150.00 

Electric Pencil. (eon,es on tape) 




ii 



BASIC 
PITFALLS 

by 

William Mason 



Are you smarter than I am? The 
Level II questions below repre- 
sent programming mistakes I've 
made in the last year. Answers 
and corrections are on page 53 . 



-TRUE OR FALSE 




(A) Part 1: After the program 
below is run, the digits 1 through 
9 will be left on the screen. 

le FOR K*l TO 9 
2e PRINT«»(UK 
30 NEXT K 



Part 2i After the program 
below is run, the digits 1 through 
9 will be left on the screen. 



le FOR K-9 TO 1 STEP-i 
20 f>RlNTCK,K 
30 NEXT K 



(B) Part 1: the program below will print 'Different". 

29 IFflt-BtPRINT-SfiME-ELSEPRINT-DlFFEREMT* 

Part 2: The program below will print "Different". 

20 IF fl*-"B"PRINT"Sflt1E"ELSEPRINT*'DIFFERENT" 

(C) Part 1: The program below will print "Same" for any letter, 
number, or symbol you hit. 

m PffINT*'HIT HHV LETTER.. MUMBER.. OR SVMBUL" 

20 Fl*=ir*:EVt:IFft$=""THEN20 

26 K=RSC<ft*> 

46 IFft*=CHR*<K>PRINT"SflHE"ELSEPRIHT"[>IFFERENT" 



52 



Part 2: The program below will display any letter, number, or 
symbol you hit. 

le PRIMT"HIT flNV NUMBER, LETTER, OR SVMBOL' 

2e ft»«INKEV«:IFft«-""THEN28 
30 K«ftSC<ft«> 

4e PRINT-VOU HIT THE "i CHR#<K>; " KEV" 



{D) The program below will print "Same". 

19 R*«"5" 

28 IFft»^TR*<Vflt<fMf»PRINT''SflME"ELSE"RiMT 
•OIFFERENT" 



(E) The program below will print "HI There". 

16 aS:P1tINTCHR«<23> 
26 PRINT6451, "HI THERE" 
36 Q01G39 




Solutions to BASIC Pitfalls 

(A) Part 1: False. Only "9" will be 
left on the screen. Each digit is 
printed with a leading blanl<, 
representing the" + "sign. Each 



blank destroys a number prmtea 
on a previous loop. Conversion to 
string variables will do the job. 
Change line 20 to 



26 PRIHT«K,RIGHT*<STR«<K>,1> 



Part 2: False. Only "1" will be The change in part 1 above will 
left on the screen. Numbers are work, or more simply, 
also printed with trailing blanks. 

29 PRINT«0 5TR*<:K>; 



53 



(B) Parti: True. 

Part 2: False. Nothing wilS be 
printed. To make the program 
work, insert a blank after "B" in 
line 20. (Inserting THEN after "B" 



will also work, of course.) It's ttie 
quotation mark that fouls things 
up, not the PRINT. The foilowing 
program doesn't work either. 



10 R$="fl" 

26 I Ffi$= " B " Q0T04^LSEPR I NT " D I FFER£NT " 

18 END 

m PRINT"S»tE'* 



(C) Parti: True. 

P-^ji I: ■-aise. The down, left 

and ri. ..;;";; arrows won't be 



displayed (the up arrow will be 
however). To fix this, look at the 

table bslCTi,. 



Symbol hit 



Ssft arrow 
right arrow 
down arrow 
up arrow 



I ASC( ) you get 



8 
9 
10 

31 



ASC( J 50U want 

93 

94 
92 
31 



Relating the second column to 
the third column gives the correc- 
tion. Insert the line 

35 IF K<il THEN K=51+K--INT<<i<-l>.'^)*3 



(D) False. "Different" will be 
printed. VAL(A$) puts a blank, 
representing the"-(-"sign, in front 
of the 5. "Same" will be printed if 
line 20 is 



20 IF" "+R*=STR»<VfiLCfi*»PRIHT"SfiME" 



54 



(E) False. Nothing will be printed. 
PR1NTCHR$(23) shifls to the 
large character mode. In this 
mode you may only use even- 
numbered locations after 
PRINT®. To make the program 
work, change 451 in line 20 to 450 
to 452. 



Your score 



1 

4 
S 



Rating 



Well, at least there 
are two of us 

Fair 

Good 

Very good 

Please send me yoi . 
phone number so I' " 
can call you will my ^ 
programming problems. 




-.-. I. 



TKE^USIC CF RICHARD 

TRS-80"Opera Theatre TA YLOR 



TO ORDER: 
CALL TOLL-FREE 
1-800-258-1790 

9AM -9PM, EST 



The finest musical program we have seen for the TRS-80. 
It deserves a quality amplifier. Amazing sound! Richard 
Taylor is an opera singer with a magnificent ear! 

Selections: '^%:...p~ m.' --i^ :■■■. 

• William Tell Overture •Musetta's Waltz 

• Sempre Libera •Queen of ttie Night 

• La Donna E' Mobile 

16K Cassette $ 9.95 Each Program 
32K 1 Disk $29.95 Both Programs 

CHALLENGE 

Word guessing game with sound effects, one or two 
players. Truly challenging and competitive. 

Ihe SoAiMare Exchattge , , 

6 Sou^Strcct, Box 68, Mitlmi Nt I (J3055 60.^-673-574^ 










DISK 
EXPANSION PACKAGE 

This package includes everything necessary to add disk 
capabittties to your TRS-80. To buy everything in this package 
at the loca) Radio Shack store would cost $1100.00. 

PACKAGE INCLUDES: 

• 16K RAM Expansion Interface 

• PERCOM Data Separator, Installed 

• PERCOM TFD-100, Mtrack disk drive 

• Dual disk drive cable 

• NEWDOS Disk operating system HARDStDE 

• 10 BASF diskettes SPECIAL PRICE $899.95 



SMALL BUSINESS PACKAGE 

SAVE $579.00 

An ideat starter package for the small business. )n- 
cludes a TRS-80 with 16K RAM and Leve! II BASIC, an 
expansion interface with an additional 16K RAM in- 
stalled, two Percom disk drives with cable and data 
separator, NEWDOS disk operating system (40 track 
version) and the Centronics 730 line printer. — 



$2799.95 



5 6 



m 



ism 



LIST OUfl USED USED 
PRICE PRICE OFFEn PRICE 



TRS-80* COMPUTERS 



Level-I 4K 


$499 


$449 


$300 


$400 


Leve!-ir 4K 


$619 


$559 


$350 


$500 


Level-It 16K 




$669 


$450 


$626 


Level-ll 16K, w/keypad 


$849 


$769 


$475 


$675 


EXPANSION INTERFACE: 










OK 


$299 


$269 


$165 


$230 


16K 


$448 


379/403 


$245 


$340 


32K 


$597 


479/537 


$325 


$440 


DISK DRIVES: 










Percom, TFD-100, 40-track 




$399 






Percom, dual TFD-100 




$795 






Percom, TFD-200, 77-track 




$675 






2-drive cable 




$29 






4-drive cable 




$39 






Radio Shack, -0 


$499 


$469 


$290 


$390 


Radio Shack, -1, 2, 3 


$499 


$459 


$270 


$370 


PRINTERS: 










Line Printer III 


$1999 


$1849 






Centronics 779-2 


$1598 


$1095 


$655 


$850 


Line Printer U 


$999 




$545 


$750 


Centronics 730 


$999 


$899 


$545 


$750 


Centronics Pit 


$499 


$419 


$225 


$325 


Quick Printer li 


$219 


$197 


$100 


$150 


QP-II Exp. Int. Cable 


$20 


$18 






t Cable required 


$39 


$35 






ACCESSORIES: 










Telephone Interface 


$199 


$179 


$100 


$150 


16K Memory Kit 




$99 






16K Memory Kit for E.I. 




$95 






RS232-C Interface 


$99 


$89 


$55 


$75 


TRS-232 Interface 




$49.95 






Data Oubber 




$49.95 







PRICES EFFECTIVE JANUARY 1, 1979 



IMPORTANT! sICPrlces do not include shipping 



5|c COD orders require 
25%Ga8lid6Dosit 



if. Prices subject to change 
_ without notice 



WRITE FOR OUR FREE HARDSIDE HARDWARE 
CATALOG! 

6 South Street 



Milford, New Hampshire 03055 (603) 673-S144 

Radio Shack and TNS-aD are lrad»marlis of Tandy Corporal Ion. 



57 



DUCK HUNTER 



by 
Dan Lubarsky 



^ 


Okay, Deadeye, here's your 
chance! Bag your limit without the 
discomfort of waiting in the duck 
blind with wet feet in the cold grey 
dawn. 

The program places the position 
and angle of your gun and the 
height of the duck's flight. Fire 
away -- if you hit, the duck flutters 
to the ground. The computer 
keeps track of the number of shots 
and hits. You gel 25 shots per turn. 
Can be played by one or two 
players. 








2 REM T HE DUCK HU^ 

SEPT 18,1979 

5 aEflR leee 

10 DEF5TR B-I 
15 DEFim J-2 


T r D ... . .Bu r£ti I liiflor^v 


1 t K — BY WW LUDHKAT 

ze strings 
;rs% p 

'UT "1ST PLflVEii MflM£";Bl :IHPUT " 
L; " GETS THE 1ST 25 SHOTS-j :NEXT 
L OF 5 GUNS 
IF 10 STRRT PCS, (J DOCK 


ijS) Ktrr iNlliLJ 

25 GOSUB 9906 

20 OS AHhiJ" TVPE 1 OR 2 PLFM 

40 IF P=l THEN GOTO 108 ELSE INf 

2M) PLfiVER NfiHE">B2 :P1=1 

50 FOR X=l TO 'm :P1?INT* 384. K 

X 

-^ 100 REM SELECT : 

110 M1=RND(5> 

280 REH~SaECT 1 ( 



5 8 



218 SO=R«>(ie) 

228 GH SD GOTO 225, 238, 235, 246, 245> 256. 255, 268, 265, 278 

225 ST=S3-5 iGOTO 288 

238 ST=12?-5 :60T0 ^8 

235 ST=i*51-S :Q0tTO 388 

248 ST=2S5-5 GOTO 368 

245 ST=319-5 GOTO 368 

258 ST=383~5 :G0TO im 

255 ST=44?-5 ;GOTO 3^ 

26eST=511-5 : SOTO 388 

265 ST=575-5 :(30TO 398 

2?8 ST=639-5 :Q0TO 388 

388 REH — PRINT DISPUHV 

216 RBI rs 16,28, 21=TULiEVS 

315 as 

328 FOR X=96e TO 1822 

338 J=RM)(3) : IF J=l THEN J=i6 ELSE IF J=2 THEN J=2e ELSE J=21 

348PRM8X,CHR$<128+J)j 

358 NE}a »( 

368 REM DlSPLftV GUN 

^ IF Hl=l THEN PRINTS 896,0^R*<128)+O•W<i6e>♦a^RS(i34); : PRINT 

8 9e8^af»<184>-K:HR$(151); 

398 IF m=2 TMEN PRIKTe 9e9,CHR»(168>+C»»(136>+CHR$C138>i iPRlNT 

% 971,CH»(176>+CHR*<i56>+CH»(131)i 

480 IF m=3 TtCN fRime 528,CI«»<149)i :PRINT8 992, CHRI<191>i 

418 IF Hi=4 TtCN PRIKTB 944,CHR*<129)+C»»<132)+CHR$a44)i iPRIffT 

» iei0,CI«*<138)+a«»<i73>+CHR$<176)i 

428 IF Hl=5 T«N PRINTS 957, CHR$a37>+CHii<144)i iPRINTJ 1822, CHR 

*<l?i)i:SET(126,46):SET<126,47):SET(127,47> 

795 REH START Q»t 

888 PRIHT8 8, "TO START HIT flNV KEV , THEN TO flf£ GUN HIT 'F' tS. 

V"j 

818 IF INKEV*="" THEN GOTO 818 ELSE PRIHTW, " 

988 GOSUe 1886 : -^nOV DUCK 1 PLrtCE 

918 IF IHKEV*="F" THEN GOTO 1186 : 'UB6=FIRE fiUH 

926 IF 0=58 THEN GOTO 2588 

925 GOTO 986 

998 REH H10VE DUCK 1 PLftCE 



59 



leie IF T02 THEH T=2 ELSE T=i 
1826 ONT W\Q 1836,1846 
1838 PRIST? ST-S, D7i :RETUO< 
IWe PRIHTe ST-CL He, iRETURN 

1896 REM FIRE GUN t1=aiK I (l-5> 

nee S3=S9+1 ; ON m GOTO 1115, 1386, 1446, 1518, 1638 

111« REH LEn CORTER GUN 1 

1115 IF P0mT<49->SD,3*S0-2)=-l THEN Jl=l ELSE Ji=e 'HIT If PO 

Hfr<X=-V+47> X=45-3SD,V=3Sf>-2 

11^ H=«35 : X=635 

1136 FOR H=l TO ? 

li48PRIMr«(,Ce; 

il56PRINTeH,Cl; 

U^PRIHTMCBi 

UTS PRINT6«,C2i 

1^ (>RIHT»LC6; 

lJSeFRI*fT»1+l,C3; 

1286 PRIKTefHL C& 

1218PRIHTiH-6iC4; 

1226 PftiNT«n-63. ce^ 

1236 PRIKT«H-e2, C5i 

1246PRIIfTeK-«2,C6; 

i2S8PRItlT6n-e2>Cg; 

1266 )MI-62 : H=X-63 

1276fE}CTN 

1288 IF Ji=l THEN GOTO 2686 ELSE GOTO 9566 

1296 REH LER GUN 2 

1366 M=848 : X=848 

1315 IF P0IKTai9-6*SD,3*SD-2)=-l THEN Jl=i ELSE Jl=8 /If POIN 

T<X=-2V+il5) THB* HIT— SO=LINE DUCK IS EW-X=119-6SD> V=3SD-2 

1318 FOR K=l TO 14 

1326PRIffT9X,Ce^ 

i338PRIKr? H,Dli 

1348 PRINTS K,C8i 

1336 PRINT? H+l,D2i 

1366PRINT6lfi-l.C6; 

131^ PRINT? H+2,D3i 

1386 )^n*2 : H=H-61 

ige NEXT N 

60 



142S IF ji=i ^m^ qoto 2eee else qoto ssee 

1438 REK CENTER GUN J 

1448 IF POINT(64,>SD-2>=-l THD< Jl=l ELK J1=0 'IF POIMT(V) TH 

EN HIT— SD=LINE DUCK IS OH — V=3SD-2 

1445 FOR V=41 TO 8 STEP -1 

1450SET<64,V> 

146eR£SET(e4,V) 

1478 NEXT V 

1498 IF Jl=l Tt€N QOTO 2898 ELSE SOTO 5588 

1588 REM RIGHT GUN 4 

1518 H=879 : X=879 

1515 IF P0INT(6*St>+&3*SI>-2)=-i TfEN Jl=l ELSE Jl=8 'IF POIMTtX 

=2V+12) X=6S&+& V=3SD-2 

1528 FCR N=l TO 14 

i538PRINT»(,Cei 

154ePRI(fT8ftFli 

1559 PRINTatCe; 

1568 PRIKT«1-i,F2; 

15?8PRItn«(-l,Cej 

1K8 PRIHTeM-2.F3; 

1598 X=H-2 ; IHt-67 

1688 NEXT N 

1615 IF Jl=l THEN QOTO 2888 ELSE GOTO 9588 

1628 i^H RIGHT CORNER OJN 5 

16^ N=892 ; X=892 

1635 IF P0INT<>SD+?8»>SI>-2)=-l TtC« Jl=l ELSE n=9 'IF POM 

<X=V+88) X=3SD+78,V=3SI>-2 

1646 FOR N=l TO 7 

1658 PRINT«{,C8i 

166SPRINT«t61i 
1676 PRIHT8H,Cei 

1688PRINT»iG2. 
1696 PRINT«<-C0; 
17M PRlNTeH-l.G3i 
1719 PRIKTeH-l,C6i 
1728 PRINTeH-65,G4i 
1?:^ PRINT8H-KjCei 
1748PRINTW(-66.G5i 

i75epRiNTefl-«6,cei 

1768 PRINT«*-66.(^ >>^ - # 



1776 X=H-66 : H=X-^ 

i.?m texT N 

1886 IF Jl=i THEN GOTO 2886 EL5£ GOTO 95^ 
iS% REH — " !!! HIT !M '"-- - 

DROP THE BUCK --POS. =Sl+a 
2606 S=S+1 :iF Pl=i Tt€N Sl=S:i+i : ' SOM. i «;T 

2685 IF P2=l THEN S2=S2+i 

Seie Xi=ST-Q ; ft=8 ' ST[+6=P0S. OF DUCK 

2026 PRINT? XI. " "J : 'ERftCE DUCK 

2638 FOR SD=S& TO O /DROP FROH POS, TO 16 

2648 PRIHT8 X1+ M+a lii 

2658 PRINT? Xl+128+fl, 12; 

2888 PRINTS X1+ 64+fl,Oi 

2898 PRINT? Xl+128+fi, 14; 

a88 PRINT* Xi+iS2+fl, 15; 

2128 PRIHT8 )a+ 64+M6; 

a28 PRINT? Xl+i28+fi, 17; 

2148 PRIKT? XlH92+a 18; 

2168 PRINT? X1+ 64+fi. 16; 

a88fNH64 

2198 NEXT SO 

2266 PRINT? Xl+64+fl, 18; 

2216 PR1NT?X1+128+H,19i 

2588 REH RESET FOK NEH SHOT 

25W PRINT? ST-Q," \ 

2518 IF P=l THEN PRIHT? 838. "HITS"; S; ELSE PRIta? 838,LEn$<BL4 

);Si; :PRIHT?884,LEn*<B2,4)iS2; 

2528 IF S9=25 T«N Pl=8 : P2=l :Q0TO 2545 

2536 IF S9=S8 THEN QOSUB 8686 : 'GMC OVER 

2546 GOTO 2556 

2545 FOR X=lT04ee : PRIKT?6,B2i"'S TURN FOR 25 SHOTS"; : NEXT X 

2558 PRINT?e. "HIT fiHV KEY TO BEGIN NEXT SHOT"; :If lWEi$=" TtiE 

H 2556 

2555 0=8 

2568 GOTO 168 

8888 REN — G»C OVER 

8616 PRIHT? 6, "GAME OVER"; 

8815 IF 51=52 TfCN PRIKT? 776. 81; "DRflK"; :PRIKT? 819, 82;'DRflH' 

; :GOT06836 

8826 IF Si>S2 THEN PRINT? 776, 81; "MIKS"; ELSE PRINT? 819. B2; "H 



62 



IKS"; 

8836 PRINT? 64>''" : INPUT 'FOR fl HE« GfiME WITH ^Ey PtflVERS VES OR 

8846 IF B4="'.tS" THEN INPUT "1ST PUWES NfME-iBl ; INPUT "2t» FIR 

VER HflnE"iB2 

88^ S=e : Si=6 ;S2==e ;P1=1 :P2=e :S9=e 

8^5 FOR X=l TO 360 ■ PRINTW4S, Bi> " GETS 1ST 25 SHOTS" i 

%&6 RETIMI 

9886 RE» STRINGS FOR DISPLfiV 

3818 "FLVING E>UCK 

9828 l>9=C«»(06):E9*=0«i(i4e>:F9=CHR$(i32):C&=CHR*(128) 

9636 D7=l>9+t»9+E5tE9+E9+&9tC0 

9646 D8=F9HH»(l?2>+CHR*<158)+a<R*<i41)+f9+F9+Ce 

9858 '8ULLETS GUN 1 

9666 Cl=CH»<144):C2=CH»<06);C3=CHR*(i29>:C4=CHR»<166>:C5=CHR* 

(132);C6=CHR$(136> 

9676 'Cm Z 

^66 [>l=ai»<166>:&2=^>1R«(i36):D3=a«$(138) 

9696 'GUN 3 SET^RESET USED 

9168 'GUN 4 

9116 Fl=CHR*(144>:F2=CHR*<132):F3=CHR«a29> 

9126 'GUN 5 

9138 Ql=CHR$(ie6>:G2=af»a32):G3=CW«<13e):G4=CHR»(144):G^CHR$ 

(136):G6=a«(129) 

9146 'FFILING DUX 

9156 I6=Cd+C6tC6 

9166 Il=a«$(138>+CHR$<i86>+CM%«<152) 

91^^ 12= Ci6+CHR*(17i>+a«»C129) 

9188 13=CHR*C16e>+CJ«»ti68)+Ct«$a6e) 

9196 14= Ce+a«*(175)+CHR«(05) 

9268 15= C6+CHR»<:i36>+C« 

9218 16= C8+C*«»(166>+Ce 

9226 I7=CHR»(i26)+CHRt(196)+Ce 

3236 18= C8+CHtt(138)+Ce 

9246 19=a«*(144>+CHR»(i9e>+Crt»(i88) 

9258 RETl^ 

9499 REM »CCX S9 — »£N PLflra? TWCES MORE THMf ONE S 

HOT RT R DUC^ 

9566 IF S9=25 OR S9=58 THEN QOTO 2568 ELSE GOTO 928 

18866 GOTO 18868 

63 



NEW! utility package from NEPENTHE PROGRAMS 




TheSafiwareExahange 



MIIJWS WJV^'li^H 



Programming utility for professional programming. 

File Manager 80 will organize tape and disk file routines, 
print a dictionary of items specified by you, edit items 
already specified and create record layouts using the items 
you have described. It will even create the code for your in- 
put/output routines, including format, sub-record, get, and 
put routines, and store them as temporary files to merge in- 
to your programs. It will maintain a dictionary of the 
subroutines you create and the variables used. 

Minimum configuration is one disk and 32K of memory, 
but two disks are strongly recommended. Comes on disk 
witfi manual for $49.95. 



64 



ATTENTION 
ALL WAR GAMERS 

The war games you have come to love have 

come to the TRS-80! 

River# 

Hexagonal Grid# 

Terrain Obstacles • 

Armor, Infantry, and Engineers • 

Computer determined combat results • 



This Two Player game is an elementary war game 
(Kriegspiei is German for "war game") giving a battle bet- 
ween two countries located in opposite corners of the 
screen The object is to capture the enemy capital. During 
play, each piece flashes in turn, displaying the number of 
moves left You can move it, wait until you have moved 
other pieces, skip it, or even go directly to combat after 
moving only some of your pieces. You must stop and do 
battle whenever you are adjacent to an enemy piece. In 
battle, you can be eliminated, the other piayer can be 
eliminated, an exchange can take^olace, or a retreat may 
be required, You do the brainwork. General; the computer 
carries out your orders, Strategy and fate determine the 
battle! 

$7.95 Level II Cassette 





Now Available 
SoftSide on Cassette 

1979 Back Issues $7.95 each 

JANUARY 

• Bound the Horn •Ten Pin Bowling 

•Compul-A-Sketch •Kiddy Stot 

FEBRUARY 

• Form 1040 •Concentration • Eiements Quiz' 

MARCH 

•Tarot •Metric/English Converter 

APRIL 

•Safari "Rabbits and Foxes •Personal Finance (Checkfinder) 
•Series Circuits "Don't it Make My Brown Eyes Blue 

MAY 

•Dog Star Adventure •Awari "Letter Crunch •Math •SuperSub 

JULY 

•All Star Baseball "Yahtzee "Tank "Spelling Bee "Collision 

JUNE 

"Atlantic Balloon Crossing "German Word Quiz •Nim "Home 
Appliance Record System "Entrapment 

AUGUST 

"Nuciear Reactor "Storybook "Cryptogram •Shooting Gallery 
"Morse Code Tutor 

SEPTEMBER 

• Engineer "Treasure Dungeon "Hangman "Pyramids 

OCTOBER 

"Aptitude Test "Reaction Time •Battlesiiip "Westward 1847 
•Tug-O-War 

NOVEMBER 

• E\/erest "isolate •Energy Cost "Picture Puzzles "Doodle Pad 
DECEMBER 

•Oil Baron •Drag Race •Show and TeH'Towers of Hanoi •Slalom 




TheSaih^ateEjiechangB 

6SouthStreet,Box68,Milford,NH0305:5 603-673-5144 
66 




TRS-M Opar» Thsatr* Magnlfloent sound! by 

RIctiard Taylor. S9.96 

ChBltang« Word game with saund. By Richard 

Taylor S9.95 

Galactic Einplra by Douglas Cartston S7.95 

Castno Anthol<i^ Slot Machrn^n Slad and Dra« 

Poner. J7.95. 

Allen Invasion $9S!> 

X-Wlng It by Chris Freond. Level II. 16K J9.95 

Taipan by Art Canfil. Level II, 16K $9.95 

Sargon Chess by Dan and Kathe Spraeklen. 

Lavel II, 16K $19.S« 

Sargoft II by Dan and Kathe Spracklen. Level II, 
leK. S29.gs 

Airuin' Mazes by Rotaen Wallace. Level tl, tGK 
S7.95 

Snake Eggs hy Leo Chf Istopheison With sound 

■ Level II, 16K S1t.95 

Lite Two by Leo Chilslopharson. With sound 
Levet II, 16K $14.95 

AndnHd Nfm by Leo Christ ophsreon. With 

sound- Level II, tSK $t4.S5 

Cubes by Leo Chrlsiopherson Level II, 16K$9.95 

Baa Wary by Leo Chilsropherson. with sound. 

Level II, 16K, S14.95. 

M»rtermitMJ II by Lance MIcklus $7.95 

Mastermind II - Source List .$20.00 

Tycoon by David Bohlke. Leve( II. 16K $7.95 

9 Games for Preschool Children by George 
Blank. Level II, 1BK $9.95 
Space Battles by Level IV, Level II, 16K Tape or 
32K DisVi, Tape $14.95, Disk $19.95 
Sle( Trek III .4 by Lance Mich I us Level II, 16K 
.$14.95 



Adventures on Tape by ScottAdame. Level II, 
T6K. Choose one: Adverituretand, Pirate's Cove, 
Mission Impossitile, The Count. VooDoo Caslle, 
SI range Odyssey, and Fur^ Hou3e-$t4.95 each. 

AdvantufBs On Dttk by Scotl Adams. 1( MIsshin 
Impossible. Pirate's Cove, Advent ore! and; or, 2] 
VooDoo Casile. The Count, Strange Odyssey. 
Either set, $39 95. Adventure Sartipler, 16K tape 

$5.95 

Pork Barrel by George Slink. Level II, 16K$9.9S 

Barricade by Small Systems Soltware. Machine 

Language -$9.95 

Psntomlnoes by Jartws Garon. Level II, 16K 

$7.96 

Mean CIteeksrs Uaehlns by Lance Micklus. 

Level II. tEK: tape, $19 96; disk $?4.95. 

Krtegiplel by Ron Pot kin. Level II, IBK. $7.95. 

Time Trsk by Joshua Lavlnsky. Lavel tl, t6K 

$14.95 

iviicro Chess 1 5. Level I or II, 4K $1995. 

FasigamRion from Quality Sottware. Level II, 

16K $19.95 

Cribbsgs by Roger \N. Ftpbltallle Sr.. Level It, 

16K $7 95 

Oalactlc Empire by Doug Carlston. Lervel II.IiiK 

$14.95 

Air Rild by Small Systems Sotlware. Level I or 

11, 4K$9.gS 

Lest Dutchman's Gold by Tori LI. Level II, leK 

$9.95 

Original Advsniurs as played on PDP-10. 32K, 1 

disk $?9.95. 

Pl8«ktn (Football) by Acorn Software. Level II, j 

16K$995. 



67 



HOW TO SELECT PACKAQED 
BUSINESS SOFTWARE. 

Whan /ou am looking far a business soft- 
ware package^ it ts not a simple fnatter of say- 
ing "I ne«d an Accounts R»c«lvable Package" 
and then buying an accounts receivable 
package. The OF^LV way to gat a software 
package to meet all your requliements will 
normally be toliire a ouslorr) programmer and 
fiavs til m write the program toyourepeclflca- 
Hons, For tticse wt)o do nol have several thou- 
sand dollars to do this, carefully selected 
package software can <lo almost as welt. 

Unless you afe vefy lucky, v«hen you buy 
a packaged program, you will either have to 
modify your prooedures or rtwdify the pro- 
gram to your requirements. Modification Is 
much simpler than wrltiro a program from 
scratch, and ottsn as aatisfaclory. 

What do you need lo know to buy a 
pad^e? First, wrlle down the Information 
you need to store and the reports you need. 
Then obtain a copy of the output reports for 
the packase you are conslderlrtg. Often you 
can just rename a category arHJ store your Irv 
formation directly. Compare the numtMr of 
accourvts you have with the capacity of the 
system you are considering. (Remember that 
you might use se{>arata diskettes If you can- 
not fit all your custDmers or accounts on one.) 
Avk If we have a data sheet available for the 
program you are considering. 

We strongly recommend that people pur- 
chasing our tMsiness software purchase the 
manual tirst. Most of our manuals are 
available for fO% of ttie purchase price ptus 
$1,00 shipplrvg. (Iliere Is a minimum fee of $5 
for a [T^anual.yif you later purchase the same 
program, we will credit you with the price of 
the manual. Even If you do not tHiy the pro- 
gram, you will find Information In the manual 
tf^L will fielp you evaluate other programs or 
design your own, and you will therefore not 
have wasted your mortey. 



BUSINESS 



Inventory System 11.3 by M. Kelleher. Improved 
version, $79.95 

Inventory 'S'by Roger W. Robilaille, Sr. Level II, 
ieK Tape .£24.95; 32K Disk, (with invoicing) 
»59.9B. 

Payrofl by Stephen Hebbler. For disk systems. 
32K S59.95 

Accounts Recehnlil* It by S. Hebbler. 32K disk 
systems J79.95 

Appointment Log by Michael Kelleher. Level II, 
16K £9.95 

Mall Ust I by BUS-SO. S19.95 

I List II by BUS-SO 32K disk systems $99.95 



Small Businees Bookkeeping I) by R. W. 
Robhaille, Sr. Level II, 16K. With journal .J36,95 
disk, S31.95 tape, vyithout journal 129.95 disk, 
$24.95 tape. 

SPECIAL PURPOSE 

Hlstograph/Scetlergram by Qary S. Breschlni. 

Level II, laK t9.9& 

SimpleSimon by George Blank. Level II. Written 

in BASIC. $4.95 

RPN Calculator by Russell Starkey. Level II, 16K 

$9.95 

Ham Radio by fi/llchael Kelleher. Level II, fSK 

$9.95 

Ham Radio advanced version for 32K disk 

$24.95 

Electronics Assistant by John Adamson. Level 

M, 18K 19,95 

Basic Statistics by Steve Reiss«. Level II, 16K 

$20,00 

Kfaglc Paper Calculator by Russell Starkey. 

Level II 

16K J 14,95 

Keyboard by James Garon. Level II, 16K $8.95 



PERSONAL 



TyplnB Tutor by Roger W, Robilallia, Sr. Level II, 
16K $19.95 

Secr«ts ot the Taret by JohnT. Phllllpp. Level II, 
16K $9.95 

Bforhylhms by Frank B. Rowlett, Jr. Level II, 4K 

$4.95 

Personal Finance by Lance Michtus. Level II, 

16K $9.95 

Advanced Personal Finance by Lance Micklus 

for 32K disk systems $24.95 

flome Financial Management by Michael 

Kelleher. Level II, leK $9.95 

Periodical Cross Reference by Oave Slam- 

baugh. Level II, tOK. 14.95;32K Disk, $19.95 

I Ching by John T. Phillip. Level II, f6K $7,95 



UTILITIES 



File Manager SO by Nepenthe. $49.95 32K Disk 
Directory 16K Disk $9.95 
Aulomiled Disk Directory $14.95 32K Disk. Re- 
quires NewDOS, 

Spool Print ASCII files $19.95 (Will not work with 
NewOOS.) 

STAt) Trace and Debug Monitor for tape and 
disk systems 16, 32, and 48K on one tape. $24.95 
NEWDOS by Apparat $49.95 
NEWDOS-f by Apparat $99,95 
Machine language Monitor by Small Systems 
Software. Level II, 16K $26.95 
Three Monitors for Disk by Small Systems Soft- 
ware. Disk lor 18 through 48K (all in one) $29.95 y 



68 



KVP Exlendei by Lance Micklus. Tape - $29.95; 

Disk - $34.95 

KVP232 by Lance Mickius ■ KVP adapted lor the 

TR 3-332. Tape ■ S29.95 

STSO Smart Temninal Level 11, 16K J49.95 

ST80D Smarter TerminaJ for disk syslems. 

$79.96 

MIcre Text EditCff by Don Coons. Level II, 4K or 

16K t9.95 

TBxi-eo by Frank B. Rowiett, Jr. For 32K disk 

systsms $59.95 

Electric PencM by Michael Shrayer. Powerful 

macfiine language vvord processing system. 

Level II, "I6K tape- 1100; Disk version ■ $150 

Lewi III BASIC by l^icrosofl. $49.95 

L«vel I In Level II by Apparat. Level II, 16K $15.00 

Fortran by fvlicrosoft. 32K ■ 2 Disks. New low 

price tl 50.00 

RXBasic Cross Reference XREF ■ RENUMX, by 

Lance Ivlicklus RX (disk, 32K| $24.9& XREF, L II, 

16K, 119.95; RENUMX, L II 16K, $24.95; 

RENUMBER, $7.95 

System Copy, by Kalman Bergen, Level 11, 16K, 

$9.95 



BOOKS 



Ssfgon Handbook t,y Dan & Kathe Spracklen. 

$14,95 plus $1.00 sfiipping and handling. 

The BASIC Handbook by Dr, David A. Lien. 

$14.95 plus $1 

Z80 Instruction Handbook by Sceibi Publics 

tlons$4.95 

Ttie Little Book Of BASIC Style by Jotin 

Nevison. $6.^ plus$l 

TRS-SO Assembly Language Programming by 

William Barden, Jr. $3.96 plus $1 stripping 



Introduction to TRS-80 Graphics by Don Inman. 

$7.95 plus $1 

Learning Level II by David A. Lien. $15.95 Plus $1 

Z-SO Software Gowmet QuMe and Cookbook. 

fromScelbl$1-4.95'$1 postage 

THS-SO Disk artd Other Myslefles, by ttarvard 

Pennington, $19.95 ' $1 handling 

TRS-80 interfacing by Jonathan Titus $S.95 ' $1 

handling 



SUPPLIES 



Cassetles boies ol ten eatti. C-10 ■ $6.50 plus 
$1.00 shipping 

C-20 ■ $7.50 plus $1-00 shipping 
OiBkettfts Dysan, (premium gvality) box of 5 
■$a9S5 plus $t.00 shipping; nationally knovirn 
brand, liox of 10 - $39.95 plus $2. Diskette 
Storage Sox $5.00 

FloppiF ArmourTM Protective envelope (or sfiip- 
ping floppy disks. &-paclt-$4.9S plus $t. 00 ship- 
ping and ItandllrKI 

Z-30 Chip Poster $3.99 plus $1.00 handling. 
Softs ide Vinyl Binders, S4 95 plus $1.00 shipp- 
ing. 



For more detailed descriptions ol iMjr soft- 
ware and supplies send (or IheTSE Catalog 
- it's FREE! Write or call today far your 
copy: 



The Software Exchange 

6 South Street 

lililfard, Nht 03055 

60^673-5144 



IMPORTANT 

■ No sales taK. 

■ All C.O.D.'sorspeciai delivery ofdera an 
a minimum of $5 for special fondling. 




To Order 

TOLL FREE 

1-800-256-1790 



nieSoAuareEKcftange 

6SoulhSt.reet,Box68,Miliord,NH03(S5 603-673-5144 



69 



Ul 

o 



tn 
in 
o 

o 



o 

X 

ux 

LU 

< 



« J OJ 

? » £ 

— 2 ^ 

^ -5 ,2 






^n 



m 

11} 



*0 Of *■ 

"6 a <u 



5S S 



*^ S "a 

s = - 



s 

fi 
I 

I 



^ 

'I 
il 



u — 


























X3 












u 

111 

f 






o 

















*l 



do 




- 9Mji» lesiiidejBodA) joi 9\n\sua6tai ion- 








4 

IS- 


















.■■■ 




-.■4 








lU 

a: 
< 
I 
o 
a 
z 


LU 
O 
IE 
< 

i 

5 

Q 

<: 


lU p 
















Is 

5l 






■sr- 
A- 


■: 








=i 
13 

Z 
< 
I 
□ 

< 


a 
111 

CO 

3 < 

-1 
< 






i 


^ 


f 










° 























i 

II 



11. -1 



1*4 

at ^ = 

^ aws 
O* .. E 
-'^ « ^ 

in g-U B 

uJ 5! e 
t*' OJ c !s 

C3 ^ 4, 01 
Ui-=S O 
5 E"- 

> ■" - ~ 

L 5 c « 

g~ o « 

. " c ° 



-5olt5F4 



Rush me the next 12 



PO Box 68 
Milford, NH 03055 

"your BASIC software magaxirve" 

issues of SoftSide. 



nuSAbulk.SISIyr. n$32-2vrs. □CANADA/MEXiCO$25 1 yr. 
DUSA first class $25 1 yr. DOVERSEAS airmail $30 1 yr. 

DAPO/OVERSEAS surface $25 1 yr. Xalophone your charge card oriiorl Ca!l 



Credit Card 



our Sjbscriptton offi<^ Monday through 
Friday 9:30 to 5:30 (Eastern time) at 
e03'«73^144 



Exp. Date_ 
Signature- 
Name ■ 

Address — 
Citv^_- 



Interbank # (M/C only). 



-State 



Zip- 



Please remit in US funds ONLY 



I 



Ready to get serious? SUBSCRIBE TO PROG/80 the maiazine | 

dedicated to serious programmers... beginners to professionals 



SUBSCRIPTION RATES - G Issues per year 



USA 

8Lit5 mail -S15.00 
First Class Mail - S21.(X) 
Overseas airmail - 127.00 



Canada 
Mexico 

APO/FPO »;",,' 
Overseas surfat^ mail 



] 



Sly.QQ. 



" i."":w| 



n Check/MorteyiOrder ertelosedv [] Master Charge P VISA 



I * , ^StSf^ATHRE,. 
I ■■' ' ACCOUNT#_ 
'll«ie(P,~DATE" 



tNTEH.JP 



NAME. 






■*;¥? 



ADDRESS _ 
CITY 



_ STATE. 



.ZIP 



Telephone orders accepted (or Master Charge or VISA accounts. Call Monday Ihrough 
Friday, 9:30 to 5:30 EST at 603-673-S144 

PO BOX 68, MILFORD, NH 03055 



71 









The ultimate flight simulation! 



Land the 




Shutfle! 



Thoroughly realistic simulation based on the actuai flight 
characteristics^ reentry procedure, and instrunnent display of the 
United States Space Shuttle! 



] 



L^^ 



U.S. POSTAGE 
PAID 

-BULK RATE- 
PERMIT NO. 21 
MILFORD, NH 03055 



P.O. BOX 68, MILFORD, NH 03055